Top 10k strings from Utility Compilation 66 (19xx)(-).trd in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Utilities & Educational - [TRD] (TOSEC-v2007-01-01) /
Back to the directory listing
43 #00,#00,#00
30
29
21 ld a,(hl):inc hl
21 call OutFS
19 pop hl:ret
17 call 15635
15 #05,#05,#05
15 "H","H","H"
11 call _NxtPos
10 #06,#06,#06
10 #00,#00,"0"
9 push hl:push de:push bc
9 push hl:push de
9 pop de:pop hl
9 pop af:ret
9 ex (sp),hl:ret
9 call Input:call ChkEsc
9 <>!@#$%_)('&";
9 #00,#00,"H"
9 "H",#00,#00
9 "H","H",#00
8 rrca:rrca:rrca
8 pop bc:ret
8 pop bc:pop de:pop hl
8 ld bc,16:ldir
8 call PassSpcs
8 DB %10100000,%00000101
7 cp (hl):inc hl
7 call nz,ErrSynt
7 #05,#06,#05
7 #00,#00,"x"
7 #00,"0","H"
7 "H","0",#00
7 "8",#00,#00
6 ld bc,(FBuffSize)
6 ld (de),a:inc de
6 ex de,hl:ret
6 add hl,de:ld a,(hl)
6 add hl,bc:ex de,hl
6 "0",#00,#00
6 "0","H","H"
5 zxcvasdfgqwert1234509876poiuy
5 push bc:push de
5 pop de:pop bc
5 pop bc:pop de:pop hl:ret
5 ld hl,(FBuffSize)
5 ld a,(de):inc de
5 ld a,#ED:call PutByte
5 call Value
5 call Pressed
5 call PassSpcs:ld a,(hl)
5 call InpFlName:jp c,MAIN2
5 call InfoNxt
5 Return to
5 MNB:`?/~|\{}
5 FILE NOT FOUND
5 AET: BC',DE'
5 +N+F+^+Vp#q#r#s
5 #06,#05,#05
5 #00,#00,"8"
5 #00,"8","d"
5 "p",#00,#00
5 "p","H","H"
5 "d","d","d"
5 "`","`","`"
5 "T","T","T"
5 "@","@","@"
5
4 zxcvasdfgqwert
4 rlca:rlca:rlca
4 push hl:ld l,a:ld h,0
4 pop hl:pop de:ret
4 pop bc:pop hl:ret
4 perewod9~isel9iz9
4 mnbZXCVASDFGQWERT
4 ld l,a:ld h,0
4 ld h,(hl):ld l,a
4 ld c,(hl):inc hl
4 ld b,h:ld c,l
4 ld a,3:call DecHL
4 ld a,13:ld (de),a
4 ld a,(hl):inc hl:call Print
4 ld a,(hl):cp 13:ret z
4 ld a,(KeyModes)
4 ld a,(DialgAttr):call OpenWindow
4 ld (ix+8),e:ld (ix+13),d
4 ld (hl),c:inc hl
4 ld (FW_Addr),hl
4 call cp_hl_de:ret z
4 call PutImage
4 call PixelAddr
4 call MoveMem
4 call MakeName:push hl
4 call FuncHead
4 call Forward
4 add hl,hl:add hl,hl
4 ____________
4 ZXCVASDFGQWERT1234509876POIUY
4 Labels Y/N?
4 FILE NAME:
4 FILE LST/ASM Y/N?
4 FILE ALREADY PRESENT
4 BREAK POINT ALREADY PRESENT
4 BREAK POINT > 16
4 Addr +0 +1 +2 +3 +4 +5 +6 +
4 ;___________________________
4 ;________________
4 ;READ FILE INFO
4 ; Turbo-Assembler
4 #18,"0","`"
4 #00,#00,"|"
4 #00,#00,"`"
4 #00,"H","H"
4 "x",#00,#00
4 "p","@","@"
4 "`","`",#00
4 "H","H","p"
4 "H","H","0"
4 "@",#00,#00
4 " "," "," "
4 not found !
4 exist,overwrite...
4
3 xor a:call DecHL
3 xor a:bit 5,(iy+1)
3 toupper call islower:ret nc
3 tolower call isupper:ret nc
3 sub c:ld e,a
3 sub #20:ret
3 sbc hl,de:pop hl
3 rrca:rrca:rrca:rrca
3 ret z:res 5,(iy+1)
3 push hl:push bc
3 push hl:jr c,MoveM1
3 push de:push bc
3 push bc:ld b,d:ld c,e
3 push af:rl e:rl d
3 pop af:ex (sp),hl
3 pop af:dec a
3 or c:ret z
3 or a:sbc hl,de
3 ldir:jr MoveM2
3 ld hl,Press2
3 ld hl,Press1
3 ld hl,(LineAddr):call Unpack
3 ld hl,(LineAddr)
3 ld hl,#0B10:call _Calc1
3 ld h,(hl):ld l,b
3 ld e,(ix+Xw):ld d,(ix+Yw)
3 ld de,0:ld a,#10
3 ld de,(BlockEnd)
3 ld d,a:ld a,e
3 ld d,0:ld e,a
3 ld c,a:and #38
3 ld bc,9:ldir
3 ld b,0:ld c,a
3 ld b,(hl):inc hl:ld c,a
3 ld b,(hl):inc hl
3 ld a,e:sub c
3 ld a,d:sbc a,b
3 ld a,d:or e
3 ld a,c:pop bc
3 ld a,c:and 7:ld e,a
3 ld a,b:sbc a,h:ld b,a
3 ld a,b:cp c
3 ld a,b:call PutByte
3 ld a,(hl):cp ")"
3 ld a,(Pass):or a
3 ld a,(LNDefFl):or a
3 ld a,(23560):ret
3 ld (hl),a:inc hl
3 ld (PrintXY),hl
3 ld (LineAddr),hl
3 ld (CurCol),a:call SetBegCol
3 l00000000000
3 jr z,PutIm3
3 jr z,Case3
3 jr nz,Subst2:ld c,(hl)
3 jr nz,PutIm1
3 jr nz,Div2
3 jr nz,Div1
3 jp FuncTail
3 isupper cp "A":ccf:ret nc
3 islower cp "a":ccf:ret nc
3 isdigit cp "0":ccf:ret nc
3 isalpha call isupper:ret c
3 isalnum call isalpha:ret c
3 inc hl:ld a,(hl)
3 inc hl:ld (hl),d
3 inc hl:inc hl
3 inc hl:call Value
3 in a,(#FE):and b:ld a,c
3 ex de,hl:push hl
3 ex de,hl:lddr
3 ex de,hl:ex (sp),hl
3 ex de,hl:call _Calc2
3 ex de,hl:add hl,bc:dec hl
3 ex (sp),hl:push bc
3 ex (sp),hl
3 djnz Subst1
3 djnz Case1
3 cp_hl_de push hl:or a:sbc hl,de
3 cp_de_hl ex de,hl:push hl:or a
3 cp "z"+1:ret
3 cp "Z"+1:ret
3 cp "9"+1:ret
3 call toupper
3 call save_hl_de
3 call nz,ErrNFnd
3 call nc,ErrSynt
3 call nc,ErrInstr
3 call _EdInfo
3 call UpByte
3 call PrtInit:push af
3 call OutFS:DB " = #",0
3 call OpenWindow
3 call ClrDosErr
3 call CheckSave:jp c,MAIN2
3 call Beep:ld a,(23560)
3 call 15635:ret
3 add hl,hl:add hl,de
3 add hl,de:ld b,(hl)
3 add a,#20:ret
3 ReadKey call Inkey:jr z,ReadKey:ret
3 Pressed push hl:push de:push bc
3 Press2 DB #7F,#BF,#DF,#EF,#F7,#FB,#FD,#FE
3 Press1 DB #10,8,4,2,1,#40,#40,#40
3 Multiply EQU #30A9 ;in ROM
3 MoveMem ld a,c:sub l:ld c,a
3 Interval cp d:ccf:ret nc
3 HL,(STACKW)
3 HHHHL@@LHH
3 HHHHHHHHHH
3 BC,(SIZEW)
3 Add hl,hl:jr c,Div3
3 Add hl,bc:dec hl
3 ;Keys Numbers
3 8DlD|TD88|T|Dl|8
3 00000<00<00HHHLLHHHHHL@@|
3 000000<<000
3 000000<0<00((((,((((((, <
3 0000000<000
3 000000000000
3 (((((, ,((
3 ((((((((((
3 #18,#18,#18
3 #18,#00,#00
3 #10,#10,#10
3 #10,#00,#00
3 #08,"0",#00
3 #05,#05,#04
3 #00,#00,"p"
3 #00,"x","@"
3 #00,"p","H"
3 "d","d","8"
3 "d","8",#00
3 "H","H","8"
3 "@","@",#00
3 "@","@","p"
3 "8","d","d"
3 "0","`",#00
3 "0","0","x"
3 """""""""""""""""""""""""
3 """"""""""
3 JR NZ,LABEL3
3 CP E
3 CP D
3
2 zapisatx9sektor
2 zapisatx9dorovku
2 xor b:and #F8:xor b
2 xor b:and #C7:xor b
2 xor a:sbc hl,de
2 xor a:ld (23781),a:ld (23786),a
2 xor a:call PutByte
2 s~itatx9dorovku
2 strfcomp ex de,hl:ex (sp),hl
2 set 3,(iy+1):push af:ld a,255
2 scf:rra:and a:rra
2 save cOde
2 rst #10:jr _StrHL1
2 rst #10:jr PrtHL1
2 rst #10:inc hl:inc b
2 rrca:djnz $-1
2 rrc e:jr nc,$+4:inc ix
2 rrc d:jr nc,$+3:inc hl
2 rlca:rlca:rlca:rlca
2 rlca:rlca:ld l,a
2 rla:rla:rla:bit 5,a
2 res 7,c:ld a,32
2 raspoloveniq programmy
2 push ix:push de
2 push hl:push ix:ld hl,80
2 push hl:push ix
2 push hl:push hl:push hl
2 push hl:push de:push bc:push af
2 push hl:pop af
2 push hl:or a:sbc hl,bc:pop hl
2 push hl:ld hl,(CurAddr)
2 push hl:ld bc,#0105
2 push hl:ld b,8
2 push hl:exx:pop hl
2 push hl:call PrtInit
2 push hl:call InsText:ret
2 push de:push hl
2 push de:ld b,c
2 push de:call CalcSecs
2 push bc:push hl:ld a,(hl)
2 push af:xor a
2 push af:push ix
2 push af:push hl:push bc
2 push af:push bc:push de
2 push af:push bc
2 push af:ld hl,(23688)
2 push af:ld a,h:call HexA
2 pop ix:pop hl:pop de
2 pop ix:pop hl
2 pop hl:pop bc:ret
2 pop hl:ld (ix+9),l
2 pop hl:call OutFS
2 pop de:pop ix:ret
2 pop de:pop hl:ret
2 pop bc:pop hl:pop af:ret
2 pop bc:pop hl
2 pop bc:pop de
2 pop bc:pop af:ret
2 pop af:pop hl:ret
2 pop af:pop hl
2 pop af:pop bc:pop de:pop hl
2 or a:sbc hl,de:ex de,hl
2 or a:sbc hl,bc
2 or a:ret z:inc hl:inc de
2 or a:jr z,_StrHL2
2 or a:jr nz,strfc1
2 or #58:exx
2 or #40:ld h,a:ret
2 nowye_dorovka
2 najti9fajl
2 ld sp,StkTop:push hl
2 ld l,(ix+16):ld h,(ix+17)
2 ld ix,Sprite1
2 ld ix,(FR_FCB)
2 ld hl,SetUpName:ld de,23773
2 ld hl,FW_name:ld de,23773
2 ld hl,FR_files:inc (hl)
2 ld hl,FR_files
2 ld hl,DiskInfo:ld de,23773
2 ld hl,DiskInfo+4
2 ld hl,23773:ld de,FW_name
2 ld hl,23773:ld de,DiskInfo
2 ld hl,0:call GotoXY
2 ld hl,(TEXT):ld de,(OBJ)
2 ld hl,(OBJ):ld de,(SPACE)
2 ld hl,(LineAddr):ld de,(LineNum)
2 ld hl,(InpXY):call GotoXY
2 ld hl,(FW_len):add hl,de
2 ld hl,(FW_Rest):dec hl
2 ld hl,(FW_Buff)
2 ld hl,(FW_Addr):ld (hl),a
2 ld hl,(FR_FCB):push hl
2 ld hl,(FR_FCB)
2 ld hl,(FBuffSize):ld bc,18
2 ld hl,(DiskInfo+5)
2 ld hl,(DiskInfo+1)
2 ld hl,(BreakAddr)
2 ld hl,(BlockBeg)
2 ld hl,#1620:push hl
2 ld hl,#0200:push hl
2 ld h,a:ld d,h:ld e,l
2 ld h,a:ld a,c
2 ld e,0:inc d:ret
2 ld e,(ix+9):ld d,(ix+10)
2 ld e,(ix+8):ld d,(ix+13)
2 ld e,(ix+14):ld d,(ix+15)
2 ld e,(ix+11):ld d,(ix+12)
2 ld e,(hl):inc hl
2 ld de,SearchBuff
2 ld de,ExprBuff:ld c,19
2 ld de,10:call #03B5
2 ld de,(ScrM):ld b,0:ld a,8
2 ld de,(FW_len):call CalcSecs
2 ld de,(FW_Addr)
2 ld de,(DiskInfo+1)
2 ld de,(BlockBeg):call cp_hl_de
2 ld de,#060E:call OpenWindow
2 ld de,#0415:call OpenWindow
2 ld de,#0008:call 15635
2 ld d,b:ld e,0
2 ld c,3:ld a,(23693)
2 ld c,(ix+dY)
2 ld c,(ix+dX):ldir:exx
2 ld c,(ix+dX):ldir
2 ld c,#20:ex de,hl
2 ld bc,9:ldir:call ClrDosErr
2 ld bc,3:ldir
2 ld bc,18:add hl,bc:push hl
2 ld bc,18:add hl,bc
2 ld bc,0:ld a,13:cpir
2 ld bc,(CurAddr)
2 ld bc,#7FFD:ld a,#17:out (bc),a
2 ld b,h:ld c,l:call FreeMem
2 ld b,c:ld c,6
2 ld b,a:ld hl,#4000
2 ld b,a:jr FR_rd2
2 ld b,8:call SEARCH
2 ld b,21:call SetBegLine
2 ld b,0:ld hl,(InpXY)
2 ld b,0:ld c,a:push hl
2 ld a,l:rst #10
2 ld a,l:call HexA
2 ld a,h:rst #10
2 ld a,h:and #18
2 ld a,d:or e:ret z
2 ld a,d:or e:jr nz,GetCh1
2 ld a,d:and 7
2 ld a,d:and #18
2 ld a,c:rlca:rlca:rlca
2 ld a,c:ld c,8
2 ld a,b:or a:jr z,Input4
2 ld a,b:dec a
2 ld a,b:cp c:jr nc,Input4
2 ld a,b:and 7:out (254),a
2 ld a,33:sub l:ld l,a
2 ld a,32:rst #10:djnz Input9
2 ld a,32:dec hl
2 ld a,26:scf
2 ld a,24:sub h:ld h,a
2 ld a,22:rst #10
2 ld a,1:ld (Pass),a
2 ld a,13:ld (de),a:jr Input1
2 ld a,(hl):xor d
2 ld a,(hl):sub "0":ret c
2 ld a,(hl):or a:ret z
2 ld a,(hl):inc (hl)
2 ld a,(hl):cp 13:jr Z,Input3
2 ld a,(hl):cp ",":jp nz,CompQ
2 ld a,(hl):cp "("
2 ld a,(de):inc de:cp 13
2 ld a,(de):cp 32:ret nc
2 ld a,(Prefix):call PutByte
2 ld a,(Pass):or a:jp nz,CompQ1
2 ld a,(Offset):call PutByte
2 ld a,(MenuAttr):call OpenWindow
2 ld a,(Mem_B)
2 ld a,(DiskInfo+4)
2 ld a,(DialgAttr):ld hl,#0305
2 ld a,(DestFl)
2 ld a,(23798):add a,"A"
2 ld a,(23658):xor 8
2 ld a,#CB:call PutByte
2 ld a,#8e:ld c,9 ;WRITE FILE INFO
2 ld a,#8e:ld c,8
2 ld a,"C":ld (de),a:ret
2 ld (ix+9),e:ld (ix+10),d
2 ld (ix+14),e:ld (ix+15),d
2 ld (ix+11),l:ld (ix+12),h
2 ld (ix+10),h:ret
2 ld (hl),b:inc hl
2 ld (hl),a:inc l
2 ld (hl),a:inc hl:ld (hl),13
2 ld (hl),a:inc hl:djnz Cls3
2 ld (hl),a:inc hl:djnz Cls2
2 ld (hl),13:ld hl,(InpXY)
2 ld (hl),0:inc hl
2 ld (Speed),hl
2 ld (PrintAttr),a
2 ld (PrgIY),iy
2 ld (Prefix),a
2 ld (OBJ),hl:ld (SPACE),hl
2 ld (LineNum),de
2 ld (KeyModes),a:ret
2 ld (HeapORG),hl
2 ld (FW_start),hl:call FW_SaveBuff
2 ld (FW_sectrk),hl
2 ld (FW_secnum),a
2 ld (FW_len),hl
2 ld (FW_len),bc
2 ld (FW_Rest),hl:ld a,h:or l
2 ld (FW_Rest),hl
2 ld (FW_Rest),bc
2 ld (FW_Buff),hl
2 ld (FR_FCB),hl
2 ld (DiskInfo+5),hl
2 ld (DiskInfo+1),de
2 ld (BlockEnd),hl
2 ld (BegLine),hl:scf:ret
2 ld (BegLine),hl
2 ld (BegCol),a:ld (CurCol),a
2 ld (23696),a
2 ld (23695),a
2 ld (23694),a
2 ld (23692),a:pop af:ret
2 ld (23658),a:call Beep
2 ld (23624),a:ld a,c
2 laBels hex?
2 jr z,SEARCH2
2 jr z,GetCh2
2 jr z,$+4:ld a,#FD
2 jr strcomp
2 jr nz,PutCh1
2 jr nz,Cls1:or 7
2 jr nc,PutIm4
2 jr c,Input2:ld (hl),13
2 jr MkName1
2 isxdigit call isdigit:ret c
2 include "library"
2 inc ix:ld c,(ix)
2 inc ix:exx
2 inc hl:pop bc
2 inc hl:ld b,(hl)
2 inc hl:ld (FW_Addr),hl
2 inc h:inc d:dec a
2 inc e:ld a,e:cp 16:ret c
2 inc de:ld bc,LineBuff+127
2 inc de:ld a,(de)
2 inc de:inc hl
2 inc b:ld a,b:cp 192
2 ifused ReadKey
2 ifused Pressed
2 ifused Inkey
2 ifused Func_Tail
2 fullCat hex?
2 exx:ld d,(ix)
2 exx:ld b,d
2 exx:ld a,(ix):and e
2 exx:ld a,(de)
2 exx:ld (ScrM),hl
2 exx:djnz PutIm2:exx
2 exx:dec c:exx
2 ex de,hl:ret nz
2 ex de,hl:pop de:ld (hl),e
2 ex de,hl:or a:sbc hl,de
2 ex de,hl:ld hl,23773
2 ex de,hl:ld a,(de):cp (hl)
2 ex de,hl:call FW_write
2 ex de,hl:add hl,hl
2 djnz MkName1
2 dec c:jr nz,MkName6
2 dec c:jr nz,Cls3
2 dec c:jr nz,Cls2
2 dec b:jr z,MkName4
2 dec (hl):ld ix,(FR_FCB)
2 cp b:jr z,FR_rd2:jr nc,FR_rd1
2 cp Z:ret z
2 cp SPC:jr z,MkName5
2 cp 32:jr nc,Input0:ld (hl),13
2 cp 32:jr c,MkName2
2 cp 32:jr c,Input5
2 cp 13:ret z
2 cp 128:jr nc,Input4
2 cp 128:jr c,$+4:ld a,127
2 cp 10:ret nc:push bc
2 cp #22:jr nz,MkName3
2 cp "_":scf:ret z:or a:ret
2 cp "F"+1:ret
2 cp "A":ccf:ret nc
2 cp ";":ret z
2 call strcomp
2 call islower:ret c
2 call isdigit:ret
2 call UpByte:ld (ScrM),hl
2 call SetAttr:ld c,24:xor a
2 call Regs:ret nc
2 call Regs:jr nc,CompINA1
2 call Reg16:call nc,ErrSynt
2 call ReadKey:call Beep
2 call ReadKey
2 call PutPrfx
2 call PutPCO:jp CompQ1
2 call PutByte
2 call PrtSource
2 call PrtInit
2 call PrintLineNum
2 call PrintKeyModes
2 call PrintHL
2 call PrintFS:DB 8,8,32,Z
2 call PrintFS
2 call Print
2 call PixelAddr:ld d,a
2 call PassSpcs:ld a,c
2 call Pack:scf:ret
2 call Pack:ld hl,(LineAddr)
2 call Pack:ld b,22
2 call OutFS:DB 22,4,9,0
2 call NextSec:djnz FW_wr1
2 call NextSec:djnz FR_rd3
2 call MemAlloc:ld (FR_FCB),hl
2 call MemAlloc
2 call InpFlName:jr c,Cat2
2 call Inkey
2 call HexA1
2 call GotoXY:inc b
2 call GotoXY:POP hl:push hl
2 call GetXY:ld (InpXY),hl
2 call FreeMem:ret
2 call FW_SaveBuff
2 call FR_read
2 call FR_LoadBuff
2 call CurChrAddr
2 call Chk_Sum:ld (TextSum),a
2 call Check_SS:ret nz
2 call CalcSecs:or a:ret z
2 call Beep:pop hl:push hl
2 call Beep:dec hl:ld (hl),13
2 call #2DE3 ;PRINT-FP
2 call #2D2B ;STACK-BC
2 bit 7,c:scf:jr nz,FR_opn1
2 bit 0,(hl)
2 and (hl):ld (hl),a
2 and #18:rrca:rrca:rrca
2 adres razme}eniq kopii
2 add hl,hl:add hl,hl:add hl,bc
2 add hl,bc:ld b,h:ld c,l
2 add hl,bc:ld (hl),e
2 add a,e:ld l,a
2 aDATA AREA=
2 _wwod9komand
2 ___________________________________________
2 _____________________________
2 __________
2 [hl,bc) to de
2 XAS by Max Petrov (HPM) 1996 #
2 X1 XI1 XXMACROS XOBJ C
2 WBZ3NHRPSCHX
2 Target Too Fa
2 Syntax In Numbe
2 Swobodno>>>>>
2 Stertyh>>>>>>>>
2 SetAttr ld (23693),a
2 SYSTEM FILE NAME ?
2 Resident at #5B90
2 Resident at
2 PutChar push hl:push af
2 PrtInit res 0,(iy+2):res 1,(iy+1)
2 PrintHL call PrtInit
2 PrintFS ex (sp),hl:push af
2 POP hl:POP de
2 POP bc:POP af
2 PCSPIXIYHLDEBCAFIR!
2 Object Length
2 Number Too Bi
2 Name : NONAME C
2 NO ROOM FOR FILE
2 Monitor-Debugger 128/48
2 MakeName ld de,23773:ld b,8
2 MMMMMMMMMMMMMM
2 Label Table Ove
2 Label Table Done, Last Address
2 Label Exist
2 LL8dhpxld`````|DlTTDDddtldd8dddd8xddx``8ddth<xddxdd8`8
2 LDIrLDDrLDiLDdCPIrCPDrCPiCPdINIrINDrINiINdOUTiOTIrOUTdOTDrRETiRETnNEgRLdRRdPUShPOpADdSUbADcSBcANdOrXOrCpINcDEcBItREsSEtRLcRRcRlRrSLaSRaSLiSRlLdExInOUtImRStDJNzJpJrCALlREtEXxCPlDAaRLCaRRCaRLaRRaNOpHALtDiEiSCfCCfORgENtEQuWORkDEFbDEFwDEFmDEFs!ASSm!CONtLOADTEXtLOADCODeBcDeHlIxIySpAf(C
2 L8`dhphd00000
2 K$=K$+A$(K
2 Install in Page ZX!FF13
2 InpXY DW 0
2 Indicate :
2 HxLxHyLyirNzzNcPoPepm!On!OFf(SP
2 Ho8:sBRu(Jv
2 Hg8:kBQm(Jn
2 Func_Tail ld sp,ix
2 FuncTail pop ix:pop af:pop bc
2 Fatal Erro
2 Fajlow>>>>>>>>>
2 FW_sectrk DW 0
2 FW_secnum DB 0
2 FW_SaveBuff
2 FR_opn1 pop hl:ret
2 FR_LoadBuff
2 FILE SYSTEM NOT FOUND
2 Enter value:
2 Enter new value:
2 Enter Address:
2 Disk drive
2 Destination
2 DW GenError
2 DW CompDB,CompDW,CompDS
2 DVIJLPUFC1YX67Q534BG
2 DTTTT(Dl88lDLLL<
2 DIRECTORY FULL
2 DB 18,1,32,18,0,32,Z
2 DB %11111111,%11111111
2 DB %10111111,%11111101
2 DB %10100001,%10000101
2 DB %10000000,%00000001
2 DB %00111001
2 Count #0001
2 Char & String Handling
2 CalcSecs ld a,e:or a:ld a,d:ret z
2 CONVER Comander
2 CHARS+#800
2 C$(J,ON)=" "
2 AET: AF,BC',DE'
2 @=Kowalewskij
2 ;WRITE FILE INFO
2 ;Sprite Format:
2 ;SEARCH FILE
2 ;READ SECTORS
2 ;In:BC = YX
2 ;In: hl = Size of Parameters
2 ;In: IX-Image Address, BC-YX position
2 ;HL=HL/DE, DE=HL mod DE
2 ;HL,DE-MHO
2 ;ERASE FILE
2 ;DE=0,EOF.
2 ;Comparing strings hl,de
2 ;Caps/Lock
2 ;*********************************
2 ;" normalxnyj
2 ;" "
2 ;" "''" ":
2 ; PutImage
2 ; DB X_Size, Y_Size,..,..,.. ;Bit Chane
2 ; --------------------
2 8dx`<<`x```=LL<
2 8dll`<8dd|ddxdxddx8d``d8xddddx|`x``||`x```8d`ld8dd|ddd<
2 8ddd8yddx``=LL<
2 2` 2a 2b,2h 2i 2j,2p 2r,2x 2y 2z,2!
2 2X 2Y 2Z,2_
2 2P 2Q 2R,2W
2 2H 2I 2J,2O
2 0b`3`20cU
2 0`|<0000<@`0
2 008d8dd88LL<
2 00000ddddd8dddd(
2 ------------------------------------------
2 (c@ 2A 2B,2G
2 (STACKW),HL
2 (0572)452569,Dima(Stalker
2 #18,#08,#08
2 #10,#10,#00
2 #08,#08,#08
2 #08,#06,#06
2 #08,#00,#00
2 #08,"H","0"
2 #06,#05,#06
2 #05,#06,#06
2 #05,#05,#06
2 #00,#00,#18
2 #00,#00,#10
2 #00,#00,#0C
2 #00,#00,"h"
2 #00,#00,"c"
2 #00,#00,"T"
2 #00,#00,"D"
2 #00,#00,"<"
2 #00,#00," "
2 #00,"x","d"
2 #00,"d","d"
2 #00,"`"," "
2 #00,"T","T"
2 #00,"L","L"
2 #00,"8","H"
2 ##^#V##~#fo
2 "~",#18,#18
2 "|",#00,#00
2 "x","d","d"
2 "x","H","H"
2 "t","d","d"
2 "d",#00,#00
2 "d","x","`"
2 "d","d",#00
2 "d","d","x"
2 "boot "
2 "`",#00,#00
2 "`","P","H"
2 "START ADRES = ", a
2 "L","<",#00
2 "H","p",#00
2 "H","p","H"
2 "H","X","h"
2 "H","H","x"
2 "H","8",#08
2 "D","D","D"
2 "@","x",#00
2 "<",#0C,"8"
2 "<",#00,#00
2 "8","T","T"
2 "8","H","H"
2 "8","H","8"
2 "0","x",#00
2 "0","H","@"
2 "0","0","0"
2 "''" 0 1 ":
2 " ","p",#00
2 ZX ASM version 2.4 :
2 ZX ASM 2.4
2 Track #00,
2 SPACES-COMPRESSORS.
2 Retry Ignore Abort
2 N1=0 ,N2=65535 .
2 Hohlov Oleg,Kharkov.
2 EDAS 3.0
2 "FILE NAME:" -
2 miga`}ij
2 qrkij
2 RET
2 LABEL2
2 LABEL1 LD A,B
2 LD A,C
2
2
1 ~|\{}@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
1 ~standard library~
1 ~astx9fajla9
1 ~XAS DEMOB
1 ~OE, TO CHA
1 ~DCU~2.02~
1 }xas.txt C
1 }OPE KOMMAH
1 ||||||||||
1 |kwiwalenty.
1 |krannoj oblasti,a zagruvena w
1 |krane ne otobravaetsq. Wypolne-
1 |kran, a potom ee prosmotretx,
1 |kran komandoj < O > .
1 |ffektow legko ee ostanowitx,
1 |XAS HELPBF
1 {tab C
1 {decompilC,
1 {IHBBBBBBBBBBBBBBB
1 {)HBBDFABDFABCBBBB
1 zada`tsq w re-
1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
1 xxxxxxx9999999999999999999999999xxxxxxx9|||||||||||||||||||||||9xxxxxxx9|||||||||||||||||||||||9xxxxxxx9|||||||||||||||||||||||9xxxxxxx9|||||||||||||||||||||||9xxxxxxx9999999||||||||||99999999xxxxxxx9999999||||||||||99999999xxxxxxx9999999||||||||||99999999????????????????????????????????
1 xor l:ld (TextSum),a
1 xor c:and e:xor b:ld b,a
1 xor a:pop de
1 xor a:ld c,8
1 xor a:ld (WasLabel),a
1 xor a:ld (RMode),a
1 xor a:ld (Pass),a
1 xor a:ld (MergeFl),a
1 xor a:ld (FR_files),a
1 xor a:ld (ExtMemFl),a
1 xor a:ld (DelTabFl),a
1 xor a:call LCreate
1 xor a:call DecHL:ex de,hl
1 xor 1:ld (hl),a:jr COMPILE1
1 xor 1:ld (de),a:jr CompIF2
1 xDIZASEMBLIROWATX PROGRAMMU,
1 x0~@x0~0T0Zp
1 x"x-xExVxexyx
1 wzlom i otladku programm.
1 wpered ili nazad.
1 wozmovno izmenitx
1 wolqet otmenitx ranee postawlen-
1 wlqetsq poisk posledowatelx-
1 wlewo, w 0-oj bit zanositsq 1.
1 werhnqq stroka okna
1 wDECOMPILBn
1 w5w5w5w5w5w5w5
1 w komandah izmenq`tsq na weli-
1 votlad T
1 vDECOMP.HB
1 uOut of simbol space
1 tom adresow. Zna^eniq adresow
1 tolxko registr
1 to^ka ostanowa.
1 to ona raspolovena po adresu
1 tekst programmy w kodah.
1 tanowleny, a 0-j i 1-j bity
1 ta`}ie s ^astqmi indeksnyh re-
1 sub c:ld c,a:ld b,0
1 sub b:ld l,a:ld h,0:ld a,3
1 sub 8:rrca:rrca
1 sub 8:jr nc,LEFT1:xor a
1 sub 8:add a,a
1 sub 4:ld de,EdKeysTable
1 sub 15:ld (PrgIFF),a
1 sub 13:ret
1 sub 12:ret
1 sub 128:jp CompPut
1 sub #41:push de:ld de,RusTable
1 stro~n=9bukwy
1 strfcat ex de,hl:ex (sp),hl
1 str.io, std.lib, chr&str -
1 ss/y/u -
1 ss/w -
1 ss/s -
1 ss/q/a -
1 ss/i -
1 ss/g -
1 ss/f -
1 ss/enter -
1 ss/e -
1 ss/d -
1 srl a:srl a:ld c,a
1 sq na adres
1 sme}enie to
1 sistemnoj9dorovke
1 set 7,c:jr DecHL4
1 set 7,(hl):ld a,l
1 set 6,a:out (Port_B),a
1 set 5,a:out (Port_B),a
1 set 3,(iy+1):res 5,(iy+1)
1 set 1,a:out (Port_B),a
1 set 0,(iy+2):push bc
1 set 0,(hl):ld l,e
1 sektorow>>
1 searchPy!w0
1 sdwig sodervimogo registra
1 scf:ret po
1 sbc hl,de:ld c,l:ret
1 sbc hl,de:jr EvlRes
1 sbc hl,de:inc a
1 sbc hl,bc:ld (TABPTR),hl
1 sbc hl,bc:ex de,hl
1 save_hl_de push hl:push de
1 save setUp -
1 save setUp
1 save cOde -
1 save OBJ -
1 save Block -
1 save Block
1 sama raspolovena w |krannoj
1 sYmbol list (Y) -
1 s samoj programmoj ne proisho-
1 ru` net neobhodimosti, to navaw
1 rst 8:DB 255
1 rst #10:ret
1 rrca:rrca:rrca:or c:ld c,a
1 rrca:rrca:rrca:or #58
1 rrca:rrca:rrca:ld h,a
1 rrca:rrca:or c
1 rrca:or #58:ld h,a
1 rrca:ld (IFL_Mask),a
1 rra:rl e:rl d:jr EvlBin
1 rom i ne pozwolqet sozdawatx
1 rlca:rlca:rlca:or e:or #40
1 rlca:rlca:rlca:or b
1 rlca:rlca:rlca:ld d,a
1 rlca:rlca:rlca:ld c,a
1 rlca:rlca:rlca:bit 5,a
1 rlca:rlca:rlca:add a,e
1 rlca:rlca:ld d,a
1 rlca:rlca:add a,b
1 rl c:ld a,"0"
1 revime sokra}ennogo listinga.
1 revime delaetsq 8 {agow
1 ret z:ccf:ret nc
1 ret nc:dec de:push bc
1 ret c:call BlockExist:ret nc
1 res 7,b:dec hl
1 res 6,a:out (Port_B),a
1 res 5,a:out (Port_B),a
1 res 5,(iy+1):ld a,(23560)
1 res 5,(iy+1):call Menu_Cursor
1 res 5,(iy+1)
1 res 4,(iy+1)
1 res 3,(iy+48)
1 res 1,a:out (Port_B),a
1 registrowu` paru movno izmenitx
1 registrowaq para, i esli wam
1 regeniracii
1 r(r6rDrDRRr(r(26
1 q^eek pamqti i ih simwolxnye
1 q#q#q#q#q#q#q#q)q2Q)
1 push ix:pop hl:push bc
1 push ix:pop hl:ld bc,-11
1 push ix:pop hl
1 push hl:xor a
1 push hl:sbc hl,bc:ld (TABTOP),hl
1 push hl:push bc:push de
1 push hl:push bc:ld hl,LineBuff
1 push hl:or a:sbc hl,bc
1 push hl:ld l,5:ld a,20:sub c
1 push hl:ld hl,KeyModes
1 push hl:ld hl,(_EQU_Addr)
1 push hl:ld hl,(TABTOP)
1 push hl:ld hl,(RegX)
1 push hl:ld hl,(PrgORG)
1 push hl:ld hl,(FR_FCB):ld b,8
1 push hl:ld e,b:add hl,de
1 push hl:ld b,1
1 push hl:ld a,c
1 push hl:ld a,b:and %11
1 push hl:ld a,13:ld bc,0:cpir
1 push hl:ld a,(hl):inc hl
1 push hl:ld (23613),sp
1 push hl:exx:pop
1 push hl:exx
1 push hl:call STK_FETCH
1 push hl:call Regs:pop hl
1 push hl:call InsText
1 push hl:call InitRegs
1 push hl:call FR_close:pop hl
1 push hl:call #2CB8:pop hl
1 push hl:add hl,bc
1 push de:ret
1 push de:push hl:push de
1 push de:ld hl,(_LblAddr)
1 push de:ld hl,(PtrSH)
1 push de:ld hl,(HeapORG)
1 push de:ld e,1
1 push de:ld de,Conds
1 push de:ld de,(TEXT)
1 push de:ld de,(TABPTR)
1 push de:ld d,8
1 push de:jp (hl)
1 push de:ex de,hl
1 push de:call Value
1 push de:call SetCurXY
1 push bc:push de:push hl
1 push bc:ld bc,16:add hl,bc
1 push bc:ld b,a:ld a,1
1 push bc:ld b,a
1 push bc:ld b,7:call SetBegLine
1 push bc:ld b,(hl)
1 push bc:call Reg8:pop bc
1 push bc:call Reg8:jr nc,CompLD85
1 push bc:call Reg16:pop bc
1 push bc:call PrintLineNum
1 push bc:call PassSpcs
1 push bc:call LIST
1 push bc:call Evaluate
1 push bc:add a,a:ld c,a
1 push af:push ix:ld ix,12
1 push af:push hl
1 push af:pop hl:ld (PrgAF),hl
1 push af:ld a,(NumIF)
1 push af:call Memory:ex de,hl
1 push af:call CurChrAddr
1 push af:and #F0
1 prosmotretx programmu, kotoraq
1 pribawlqetsq i weli^ina sme}e-
1 pri whode w monitor |kran ne
1 pri uslowii,^to
1 prefiksiruetsq. (10=#0A)
1 pozwolqet kontrolirowatx to^-
1 pop ix:inc xh:ld (ix-3),0
1 pop hl:push hl
1 pop hl:pop hl
1 pop hl:pop de:scf:ret
1 pop hl:pop de:pop bc:ret
1 pop hl:pop de
1 pop hl:pop af:ret
1 pop hl:pop af:or a
1 pop hl:or a
1 pop hl:ld de,LineBuff+1
1 pop hl:ld b,0
1 pop hl:ld a,(LineAttr):ld b,32
1 pop hl:jr nc,SetNum2
1 pop hl:jr CompINS2
1 pop hl:jr CompIF1
1 pop hl:jp MAIN2
1 pop hl:jp EDIT2
1 pop hl:jp CompQ
1 pop hl:inc c
1 pop hl:ex (sp),hl
1 pop hl:call nz,ErrORG
1 pop hl:call OutHL:call Beep
1 pop hl:call ErrSynt
1 pop de:ret nc
1 pop de:ret
1 pop de:push de:ld bc,RplcBuff
1 pop de:push de:ld b,c
1 pop de:push de
1 pop de:pop hl:ret nc
1 pop de:pop hl:ld c,9
1 pop de:pop hl:jr nc,FindOK
1 pop de:pop de:jp MAIN2
1 pop de:pop bc:ret
1 pop de:pop bc:pop hl:ret
1 pop de:ld hl,(LineAddr)
1 pop de:ld c,8:call Input
1 pop de:ld a,c:ret c
1 pop de:ld a,")":call Print
1 pop de:jr nc,EvlOP:sub #27
1 pop de:jr c,ResetBlock
1 pop de:jr CompINS3
1 pop de:inc d
1 pop bc:scf:ret
1 pop bc:ret c:dec de
1 pop bc:push hl:pop ix
1 pop bc:or a:ret z
1 pop bc:or a:ret
1 pop bc:ld sp,(PrgSP)
1 pop bc:ld a,c:cp 9:jr nz,Cat1
1 pop bc:ld a,c
1 pop bc:ld (hl),b:dec hl
1 pop bc:jr OutHL5
1 pop bc:dec b:jp Cat3
1 pop bc:call PrintKeyModes
1 pop af:push hl:ex de,hl
1 pop af:push af
1 pop af:ld (hl),a
1 pop af:cp b:jr c,ENTER5:ld a,b
1 pop af:and #0F
1 ponimaet nedo-
1 podtwerdite9
1 podprogrammy, trassirowatx koto-
1 podprogrammu za odin {ag.
1 po adresu: 355037, STAWROPOLX
1 pirowaniq programmy s peres^e-
1 pipipipipipipiplPc
1 perezapisatx
1 perehod w revim trassirowki.
1 pered SIMWOLAMI wwoditsq <">.
1 panelx monitora.
1 pOSLE OKON^ANIQ ZAGRUZKI I
1 out (bc),a:ld iy,#5C3A:ei
1 out (bc),a:ld (hl),e
1 otobravatxsq ne budut.
1 otmene ranee zadannogo.
1 or e:ld d,a:call Comma
1 or c:ld (hl),a:inc hl
1 or c:jp nz,FlNotFnd
1 or b:jr nz,LFind4
1 or b:jp CompPut
1 or a:sbc hl,de:pop de
1 or a:sbc hl,de:ld b,h:ld c,l
1 or a:sbc hl,de:jp c,Overflow
1 or a:sbc hl,de:call DecHL ;Table
1 or a:sbc hl,de:call DecHL ;Free
1 or a:sbc hl,de:call DecHL ;Code
1 or a:sbc hl,bc:ld (TABPTR),hl
1 or a:ret z
1 or a:jr z,SetPool
1 or a:jr z,SEARCH5
1 or a:jr z,PCO1
1 or a:jr z,OutHL1
1 or a:jr z,Input5
1 or a:jr z,EvlLbl3
1 or a:jr z,EvlAdd
1 or a:jr z,CompJP2:call ErrInstr
1 or a:jr z,CompIF2
1 or a:jr z,Comp72
1 or a:jr z,COMPILE2
1 or a:jr nz,strcat1
1 or a:jr nz,strcat
1 or a:jr nz,Value1
1 or a:jr nz,LoadTxt4
1 or a:call z,ErrAlrDef
1 or a:call nz,ErrNFnd
1 or (hl):ld (hl),a:dec l
1 or %111:inc a:cp 86
1 or #C6:call PutByte
1 or #80:call PutPCO:jp CompQ
1 or #58:ld h,a:push hl
1 or #58:ld h,a:ld b,(ix+2)
1 or #58:ld h,a
1 or #20:ld b,a:call Comma
1 opAqGpA AN
1 okno wywoda - ^astx |krana,
1 oby^no, pered [ESTNADCATIRI~-
1 oblasti pamqti.Zadanie okna
1 obhodimo zagruzitx programmu w
1 o^i}alsq, to zadajte okno ko-
1 o^i}aetsq, |to sdelano speci-
1 nyj monitor-otlad^ik Mop 2, i
1 nulewoj stroke.
1 nu` to^ku ostanowa.
1 nostx w ee rabote, a w slu^ae
1 nosti bajt. Dlq kavdogo bajta
1 no esli wy hotite ^toby |kran
1 nivnqq stroka okna
1 nitora. Sostoqnie registrow na
1 niq. Takim obrazom weli^ina
1 nie na^inaetsq s teku}ego adresa
1 neobhodimo kontrolirowatx ee,to
1 nbZXCVASDFGQWERT
1 navmite klawi{u <
1 nastroena dlq raboty,skavem, w
1 na^inaq s zadannogo adresa.
1 na^alxnyj adres.
1 na sostowlqet 5863 bajta, pos-
1 n0wb'00x'P
1 n$=n$+".asm"
1 mrSetUp2.4C
1 movno zadatx bajt-masku. Zna-
1 movno wywesti 6 bajt pamqti na-
1 movno wypolnitx
1 movno navaw
1 monitor-debugger 128
1 mogut bytx l`bymi (0 ili 1).
1 moe alxternatiwnogo nabora .
1 merGe file (G) -
1 memory for line(s).> (KOMAH
1 maciq.\to bywaet neobhodimo
1 ma rabotaet s |kranom ili
1 mNot Enouth Memory
1 load Font -
1 load Font (F) -
1 le zapuska monitor oswobovdaet
1 ldir:ld bc,#0300
1 ldir:ex de,hl:ld (hl),a
1 ld xl,a:ld l,a:ld a,h
1 ld sp,StkTop
1 ld sp,25198:ld hl,#1303
1 ld l,b:call DecHL:dec xh
1 ld l,a:or h:jr nz,LFind1
1 ld l,a:ld a,h:and 3
1 ld l,4:inc h:ld (PrintXY),hl
1 ld l,2:ld a,(DialgAttr)
1 ld l,0:ld h,a
1 ld l,0:inc h:ld a,h:cp 24
1 ld l,(ix-27):ld h,(ix-26)
1 ld l,(ix+4):ld h,(ix+5)
1 ld iy,(PrgIY)
1 ld iy,#5C3A:ei:ret
1 ld ix,10:add ix,sp ;
1 ld ix,(PrgIX)
1 ld ix,(Menu_Addr)
1 ld hl,TextSum:cp (hl)
1 ld hl,StkTop:ld sp,hl
1 ld hl,SetUpMenu:call Menu
1 ld hl,SetUp:ld de,SetUpSize
1 ld hl,SetUp:ld de,SetUpEnd
1 ld hl,SColorMenu:call Menu
1 ld hl,RunMenu:call Menu
1 ld hl,RplcBuff:pop de
1 ld hl,PtrDH+1
1 ld hl,PrgHL:ld a,b:ld b,0
1 ld hl,MonitFile:ld de,23773
1 ld hl,MainMenu:call Menu
1 ld hl,LineBuff:ld a,(BegCol)
1 ld hl,LineBuff+127:ld b,127
1 ld hl,LineBuff
1 ld hl,IFL_Mem:ld a,(NumIFL)
1 ld hl,HashTable
1 ld hl,GnErrMsg:jr ErrL1
1 ld hl,FontName:ld a,(hl)
1 ld hl,FileMenu:call Menu
1 ld hl,ErrMssgs:xor a
1 ld hl,ErrMsg1:dec a
1 ld hl,DstMemMsg
1 ld hl,DstDskMsg
1 ld hl,DestFl:ld a,(hl)
1 ld hl,CurFlag
1 ld hl,CompMenu:call Menu
1 ld hl,ChkSvMenu
1 ld hl,BreakSave
1 ld hl,8000
1 ld hl,0:jr c,BrkPnt2
1 ld hl,(_ChainEnd)
1 ld hl,(TEXT):ld de,1
1 ld hl,(TEXT):ld de,0
1 ld hl,(TEXT):ld a,(hl)
1 ld hl,(TEXT):ld (LineAddr),hl
1 ld hl,(TABTOP):push hl
1 ld hl,(TABTOP):ld de,(TABPTR)
1 ld hl,(TABPTR):push hl
1 ld hl,(TABPTR):ld b,0
1 ld hl,(TABPTR):dec h
1 ld hl,(Speed) ;Speed *= 3/4
1 ld hl,(SPACE):push hl
1 ld hl,(SPACE):pop de
1 ld hl,(SPACE):ex de,hl
1 ld hl,(SPACE):add hl,bc
1 ld hl,(RAMTOP)
1 ld hl,(PrintXY):ld b,c
1 ld hl,(PrintXY):call PrintA
1 ld hl,(PrintXY)
1 ld hl,(PrgSP):call HexHL
1 ld hl,(PrgORG):ld de,(OBJ)
1 ld hl,(PrgORG):ld (CurAddr),hl
1 ld hl,(PrgORG):call FW_close
1 ld hl,(PrgORG):call DecHL ;ORG
1 ld hl,(PrgIY):call HexHL
1 ld hl,(PrgIX):call HexHL
1 ld hl,(PrgIR)
1 ld hl,(PrgHLe):call HexHL
1 ld hl,(PrgHLe)
1 ld hl,(PrgHL):call HexHL
1 ld hl,(PrgHL)
1 ld hl,(PrgDEe):call HexHL
1 ld hl,(PrgDE):call HexHL
1 ld hl,(PrgBCe):call HexHL
1 ld hl,(PrgBC):call HexHL
1 ld hl,(PrgAFe)
1 ld hl,(PrgAF)
1 ld hl,(OBJ):push hl
1 ld hl,(OBJ):ld (BlockBeg),hl
1 ld hl,(OBJ):call cp_de_hl
1 ld hl,(OBJ):call DecHL
1 ld hl,(MonitFl)
1 ld hl,(ModifyAddr)
1 ld hl,(Menu_Addr):ld a,(23560)
1 ld hl,(Menu_Addr)
1 ld hl,(MemAddr):ld (SPACE),hl
1 ld hl,(MemAddr)
1 ld hl,(MainLn):ld (LineAddr),hl
1 ld hl,(LineNum):ld c,33
1 ld hl,(LineAddr):push hl
1 ld hl,(LineAddr):ld de,(BlockEnd)
1 ld hl,(LineAddr):call SetLnAttr
1 ld hl,(INCLDBuf):push de
1 ld hl,(INCLDBuf):ld b,130
1 ld hl,(HeapORG)
1 ld hl,(ForwMEM):ret
1 ld hl,(CurX):call GetMasks
1 ld hl,(CurLnNum)
1 ld hl,(CurAddr):inc hl
1 ld hl,(CHADD):ex (sp),hl
1 ld hl,(BlockBeg):jr DelBl3
1 ld hl,(BegLine):call Forward
1 ld hl,(#5C4F):ld de,15
1 ld hl,#C000:ld d,(hl)
1 ld hl,#C000:ld (hl),#C9
1 ld hl,#4000:ld de,#4001
1 ld hl,#3F00:ld (PrgIR),hl
1 ld hl,#15BE:ld bc,4:ldir
1 ld hl,#0A07:ld de,#0512
1 ld hl,#0912:call _Calc1
1 ld hl,#0810:call _Calc1
1 ld hl,#0806:ld de,#0A16
1 ld hl,#0803:ld de,#0E1A
1 ld hl,#060F:ld (PrintXY),hl
1 ld hl,#0604:ld de,#0718
1 ld hl,#0320:ld (23561),hl
1 ld hl,#0306:ld de,#1013
1 ld hl,#0306:ld de,#050E
1 ld hl,#0114:ld de,#080B
1 ld hl,#0110:ld de,#090A
1 ld hl,#010B:ld (PrintXY),hl
1 ld hl,#0101:ld de,#0C0A
1 ld h,d:ld l,e:ld c,4
1 ld h,d:ld l,e
1 ld h,a:ld l,a:ld (LineNum),hl
1 ld h,a:ld (PrintXY),hl:pop hl
1 ld h,a:call OutFS
1 ld h,a:call ClearCursor
1 ld h,a:and 7:rrca:rrca:rrca
1 ld h,9:ld de,OBJFlBuff
1 ld h,8:ld de,MergeBuff
1 ld h,7:ld de,MergeBuff
1 ld h,7:ld de,FontName
1 ld h,4:ld de,FlNameBuff
1 ld h,10:ld de,FlNameBuff
1 ld h,10:ld de,EraseBuff
1 ld h,0:ld l,a:add hl,hl
1 ld h,(hl):ld l,b:jr LFind1
1 ld e,l:ld d,h:pop af:ret
1 ld e,l:call UpByte
1 ld e,c:ld d,0:add hl,de
1 ld e,a:pop bc:ld a,(RMode)
1 ld e,a:ld d,a:ld (RegX),de
1 ld e,a:ld d,0:add hl,de
1 ld e,a:jr EvlHex
1 ld e,a:inc hl:ld a,(hl)
1 ld e,(ix+Xw)
1 ld e,(hl):ld d,0:ex de,hl
1 ld e,(hl):ld (hl),6
1 ld e,(hl):inc hl:ld d,(hl)
1 ld de,SColorBuf:ld c,9
1 ld de,Registers:call SEARCH
1 ld de,Regist1
1 ld de,RamBuff:ld c,11
1 ld de,ProcsrRegs:ld b,17
1 ld de,ProcsrBuff:ld c,19
1 ld de,PoolBuff:ld c,11
1 ld de,ModifyBuff:ld c,19
1 ld de,LineBuff:ld b,128
1 ld de,JumpLnBuff
1 ld de,Instructions
1 ld de,IFStack:ld b,a
1 ld de,IFStack:call XLAT_b
1 ld de,IFStack:add hl,de
1 ld de,HeapEND
1 ld de,HeapBEG
1 ld de,HashTable:add hl,de
1 ld de,HashTable+1
1 ld de,DecCodeBuff
1 ld de,CondFl:ld a,(de)
1 ld de,CompTab3
1 ld de,CompTab2:jr Comp81
1 ld de,CompTab1
1 ld de,CallBuff:ld c,19
1 ld de,BreakSave
1 ld de,BreakRet
1 ld de,BreakBuff:ld c,19
1 ld de,2048:ld a,3:ld c,14
1 ld de,2048:ld a,3
1 ld de,128:add hl,de
1 ld de,10:ld hl,85:call #03B5
1 ld de,0:ld bc,(LineAddr)
1 ld de,0:ld bc,#FFFF
1 ld de,-32:ld b,c:dec b
1 ld de,(_LblAddr)
1 ld de,(Turtle):jr EvlOP
1 ld de,(TEXT):or a:sbc hl,de
1 ld de,(TABTOP):add hl,de
1 ld de,(RegX):xor a:ret
1 ld de,(PtrDL):ld bc,(PtrSH)
1 ld de,(PtrDH):ld hl,BlockBeg
1 ld de,(PrgORG)
1 ld de,(PrgDEe)
1 ld de,(PrgDE)
1 ld de,(OBJ):call cp_hl_de
1 ld de,(MemAddr)
1 ld de,(LineNum)
1 ld de,(LineAddr)
1 ld de,(InsOffset):add hl,de
1 ld de,(CurAddr):sbc hl,de
1 ld de,(CurAddr):jr EvlOP
1 ld de,(BreakAddr)
1 ld de,#C3C2:jr nc,CompJP3
1 ld de,#6167:call Interval
1 ld de,#41D3
1 ld de,#0D12:call OpenWindow
1 ld de,#0C1C:ld (PrintXY),de
1 ld de,#0C12:call OpenWindow
1 ld de,#0B05:jr CompINC1
1 ld de,#0A14:call OpenWindow
1 ld de,#0917:ld (PrintXY),de
1 ld de,#090D:ld (PrintXY),de
1 ld de,#0713:call OpenWindow
1 ld de,#0712:call OpenWindow
1 ld de,#061F:ld hl,Border:ld b,8
1 ld de,#0613:call OpenWindow
1 ld de,#060B:call OpenWindow
1 ld de,#0515:ld hl,#0606
1 ld de,#030F:call OpenWindow
1 ld de,#030A:call OpenWindow
1 ld de,#0304
1 ld d,h:ld e,l:ld bc,0
1 ld d,h:ld e,l:ld b,128
1 ld d,a:ex af,af':adc a,d
1 ld d,8:ld e,l
1 ld d,0:add hl,de
1 ld d,(ix+Yw)
1 ld d,(hl):inc hl:ex de,hl
1 ld d,(hl):inc hl
1 ld d,#C1:jr CompPPP
1 ld c,l:ld b,h
1 ld c,d:jr z,CompAR8
1 ld c,a:scf:ret
1 ld c,a:res 7,c:ld b,5
1 ld c,a:pop af
1 ld c,a:ld b,0:add hl,bc
1 ld c,a:ld a,#ED:call PutByte
1 ld c,a:ld (CurX),bc
1 ld c,a:inc hl
1 ld c,a:call SubString
1 ld c,a:and #0F:ld e,a
1 ld c,8:ld de,OBJFlBuff
1 ld c,7:jr nz,CompLD83
1 ld c,7:jr CompLD83
1 ld c,5:call Input
1 ld c,42:jr PrintLN1
1 ld c,3:ld a,b:dec a
1 ld c,3:call Input
1 ld c,255:cpir:djnz Error1
1 ld c,15:ld de,RplcBuff
1 ld c,15:call Input
1 ld c,14:ld hl,Font6
1 ld c,10:push bc
1 ld c,100:push bc
1 ld c,0:ld e,l:ld d,h:ld b,(hl)
1 ld c,(ix+dY):ld a,d
1 ld c,(ix+dX):call UpByte:ld b,c
1 ld c,#12:call 15635
1 ld c,#12 ;Erase file
1 ld c,#0E:call 15635
1 ld c,#0B ;Save file
1 ld bc,Masks:add hl,bc
1 ld bc,LineBuff+129
1 ld bc,LineBuff+128
1 ld bc,Font6:add hl,bc
1 ld bc,256:rst #30
1 ld bc,255:ld (hl),0
1 ld bc,1:push bc
1 ld bc,144:ld de,LineBuff+1
1 ld bc,130:call MemAlloc
1 ld bc,1000:push bc
1 ld bc,10000:push bc
1 ld bc,0:ld a,13:dec hl
1 ld bc,0:cpir:ld (BlockEnd),hl
1 ld bc,(TABTOP):sbc hl,bc
1 ld bc,(PtrDL):add hl,bc
1 ld bc,(PtrDH):or a:sbc hl,bc
1 ld bc,(PrgBCe)
1 ld bc,(PrgBC)
1 ld bc,(Coords)
1 ld bc,#7FFD:ld a,#14:out (bc),a
1 ld bc,#7FFD:ld a,#10
1 ld bc,#4B2A:jr CompLD3
1 ld bc,#4322
1 ld bc,#1800:ld (hl),0
1 ld bc,#1602:ld hl,(BegLine)
1 ld bc,#0A19:ld (PrintXY),bc
1 ld bc,#0909
1 ld bc,#0105:call 15635
1 ld bc,#0101
1 ld bc,#0001:jr CompIFL
1 ld bc,#0000:jr CompIFL
1 ld b,e:ld c,d
1 ld b,d:ld c,e
1 ld b,c:pop de:push de
1 ld b,c:jr TAB5
1 ld b,a:ld d,(hl)
1 ld b,a:ld a,d
1 ld b,a:ld a,c
1 ld b,a:ld (LineBuff+128),a
1 ld b,VAL:rst CALC
1 ld b,8:xor a
1 ld b,8:jp c,CompLD81
1 ld b,8:call SetBegLine
1 ld b,8:call SEARCH:jp nc,Comp5
1 ld b,6:call SEARCH:jp nc,Comp6
1 ld b,6:call Case
1 ld b,5:call SEARCH:jp nc,Comp4
1 ld b,5:call Case
1 ld b,4:call SEARCH:jp nc,Comp7
1 ld b,2:ld hl,(BegLine)
1 ld b,28:push de
1 ld b,22:ld hl,(BegLine)
1 ld b,22:call SEARCH:jr nc,Comp10
1 ld b,1:cp 8:jr c,Procsr2
1 ld b,17:call SEARCH
1 ld b,15:call SetBegLine
1 ld b,13:call SEARCH:jr nc,Comp9
1 ld b,11:call SEARCH:jp nc,Comp8
1 ld b,0:sub "0":ld c,a
1 ld b,0:ld c,a:ld hl,Border
1 ld b,0:ld a,(FR_files):or a
1 ld b,0:inc bc:inc bc
1 ld b,0:cp "+":jr z,EvlNew1
1 ld b,(ix+dY)
1 ld b,(ix+dX):ld d,l
1 ld b,(hl):res 7,b:ld a,32
1 ld b,(hl):inc hl:ld a,(hl)
1 ld b,(hl):dec hl
1 ld b,(hl):call STK_STORE
1 ld b,#FD:cp 23:jr z,Reg161
1 ld b,#DD:cp 22:jr z,Reg161
1 ld b,#18:jr nc,CompJR1
1 ld a,xh:sub 8:ld xh,a
1 ld a,r:ld l,a
1 ld a,l:ld r,a
1 ld a,l:ld b,a
1 ld a,l:call HexA:pop af:ret
1 ld a,i:ld h,a
1 ld a,h:sub 8:ld h,a
1 ld a,h:pop hl:ret
1 ld a,h:or a:ld a,l:pop hl
1 ld a,h:ld i,a
1 ld a,h:ld c,1:or a
1 ld a,h:and l:jr z,Assm5
1 ld a,h:and l:jp z,RUN
1 ld a,h:and 7
1 ld a,h:and #18:rrca:rrca
1 ld a,h:and #18:or #40
1 ld a,h:add a,d:ld d,a
1 ld a,h:add a,6:ld h,a
1 ld a,e:pop de
1 ld a,e:jp EDIT5
1 ld a,e:jp CompPut1
1 ld a,e:jp CompPut
1 ld a,e:inc a:ld (NumIFL),a
1 ld a,e:cp 22:jr nz,CompAR161
1 ld a,e:call PutByte
1 ld a,e:and 7
1 ld a,e:and #1F
1 ld a,d:push af
1 ld a,d:or a:call nz,ErrInstr
1 ld a,d:ld de,CompIM1
1 ld a,d:jr nz,CompIFL5
1 ld a,d:jp CompPut1
1 ld a,d:jp CompPut
1 ld a,d:cp 7:ret
1 ld a,d:cp 32:jr z,TAB4
1 ld a,d:call PutByte
1 ld a,d:and #F0:or e
1 ld a,c:sub b:ld b,a
1 ld a,c:set 7,a
1 ld a,c:rlca:rlca:rlca:or 6
1 ld a,c:rlca:rlca
1 ld a,c:pop bc:ret
1 ld a,c:or b:ret z
1 ld a,c:or b
1 ld a,c:or a:jr z,Pack5
1 ld a,c:or a:jr nz,Cat9
1 ld a,c:or a:jp z,CompLD
1 ld a,c:ld de,#0E12:call Interval
1 ld a,c:ld c,7
1 ld a,c:jr CompLD6
1 ld a,c:cpl:and (hl)
1 ld a,c:cp e:jr nz,SLnAdr2
1 ld a,c:cp 8:ret c
1 ld a,c:cp 8:jr c,Comp70
1 ld a,c:cp 8
1 ld a,c:cp 7:jr z,CompINA
1 ld a,c:cp 7
1 ld a,c:cp 6:ld b,#DD:jr z,CompJP1
1 ld a,c:cp 3:jr nz,CompLD161
1 ld a,c:cp 2:pop bc:ret c
1 ld a,c:cp 27:jr z,CompOUT1
1 ld a,c:cp 18:ccf:ret nc
1 ld a,c:cp 16:ld a,#47
1 ld a,c:cp 15:jr c,Procsr4
1 ld a,c:cp 14:ret nc
1 ld a,c:cp 10:jr c,Cat5
1 ld a,c:call XLAT_b:jp CompPut
1 ld a,c:call Subst:DB 7
1 ld a,c:and 7:inc a
1 ld a,c:and 7:exx
1 ld a,c:and 1:or 4:ld c,a
1 ld a,c:add a,e:ld c,a
1 ld a,c:add a,b
1 ld a,c:add a,5:ld c,a
1 ld a,b:sub 15:or e:jr nz,Cat2
1 ld a,b:ret
1 ld a,b:or c:jr z,JumpTxt1
1 ld a,b:or c:jr nz,START0
1 ld a,b:or a:jr z,SetBegL2
1 ld a,b:ld (Prefix),a
1 ld a,b:ld (OpCode),a
1 ld a,b:ld (CurCol),a
1 ld a,b:jr nz,RIGHT1
1 ld a,b:dec a:ld (NumIF),a
1 ld a,b:cpl
1 ld a,b:cp d:jr z,SLnAdr3
1 ld a,b:cp 24
1 ld a,b:cp 16:jr c,Cat4
1 ld a,b:and a:rra
1 ld a,b:add a,d:ld b,a
1 ld a,b:add a,a:ld l,a:ld h,0
1 ld a,SPC:ld (de),a:inc de
1 ld a,8:jr CompPut1
1 ld a,6:ld c,a:scf:ret
1 ld a,3:ld c,14:call 15635
1 ld a,3:ld c,#0E
1 ld a,3:call DecHL:ex de,hl
1 ld a,32:ld (bc),a
1 ld a,32:call PrintA:inc l
1 ld a,32:call PrintA
1 ld a,32:call Print
1 ld a,2:ret nz:dec a
1 ld a,2:ret nz
1 ld a,2:ld (RMode),a
1 ld a,255:ld (23610),a
1 ld a,254:ld b,1
1 ld a,1:ret ; Syntax Error
1 ld a,1:ld (WasLabel),a
1 ld a,1:ld (SetUpFl),a
1 ld a,1:ld (RMode),a
1 ld a,1:ld (PrgIFF),a
1 ld a,1:ld (MonitFl),a
1 ld a,1:ld (MergeFl),a
1 ld a,1:ld (ExtMemFl),a
1 ld a,1:ld (DelTabFl),a
1 ld a,1:ld (CondFl),a
1 ld a,13:ld (hl),a:xor l
1 ld a,13:ld (SColorBuf),a
1 ld a,13:ld (ProcsrBuff),a
1 ld a,13:cpir:inc de:ld bc,(OBJ)
1 ld a,127:ld b,2
1 ld a,0:jp po,$+4:inc a
1 ld a,(label)
1 ld a,(ix-28):ld b,(ix-12)
1 ld a,(ix+3):cp c
1 ld a,(ix+0)
1 ld a,(hl):xor c:ld (hl),a:dec h
1 ld a,(hl):xor c:ld (hl),a
1 ld a,(hl):xor b:ld (hl),a:inc l
1 ld a,(hl):xor b:ld (hl),a:inc h
1 ld a,(hl):sub ERROR-1:ld b,a
1 ld a,(hl):sub "0":cp 3
1 ld a,(hl):res 0,a
1 ld a,(hl):or c:jr CompIFL4
1 ld a,(hl):or a:jr z,CatQ
1 ld a,(hl):ld de,0
1 ld a,(hl):ld (de),a
1 ld a,(hl):ld (PrintXY+1),a
1 ld a,(hl):ld (PrintAttr),a
1 ld a,(hl):inc hl:res 7,a
1 ld a,(hl):inc hl:ld h,(hl)
1 ld a,(hl):inc hl:inc b
1 ld a,(hl):inc hl:cp 32
1 ld a,(hl):inc hl:cp #22
1 ld a,(hl):inc hl:call HexA
1 ld a,(hl):ex de,hl
1 ld a,(hl):dec hl:cp 32
1 ld a,(hl):cpl:ld (hl),a
1 ld a,(hl):cp SPC:jr nz,DEL8
1 ld a,(hl):cp 32:ld b,1
1 ld a,(hl):cp 32:jr nz,Pack3
1 ld a,(hl):cp 32:jr nz,PSpcs2
1 ld a,(hl):cp 32
1 ld a,(hl):cp 13:jr z,Rplc8
1 ld a,(hl):cp 13:jr z,Evl3
1 ld a,(hl):cp 13:jr z,Error3
1 ld a,(hl):cp 13
1 ld a,(hl):cp #22:jr nz,CompDB0
1 ld a,(hl):cp #22
1 ld a,(hl):cp ";":ret z
1 ld a,(hl):cp "+"
1 ld a,(hl):cp "'"
1 ld a,(hl):call tolower
1 ld a,(hl):call isdigit:ret nc
1 ld a,(hl):call isdigit
1 ld a,(hl):call Menu_Struct
1 ld a,(hl):and 7
1 ld a,(hl):and %11000000
1 ld a,(hl):and %00111000
1 ld a,(de):ld (hl),a
1 ld a,(de):inc de:or a
1 ld a,(de):cpir
1 ld a,(de):cp 32:ret
1 ld a,(de):cp 32:jr c,Input3
1 ld a,(de):cp 32
1 ld a,(de):cp (hl)
1 ld a,(de):cp ","
1 ld a,(bc):inc bc:exx
1 ld a,(bc):cp 32
1 ld a,(WasLabel):or a
1 ld a,(TextAttr):ld (23693),a
1 ld a,(TextAttr)
1 ld a,(SoundMenu):ld (SoundFl),a
1 ld a,(SoundFl):or a:jr nz,Beep1
1 ld a,(SoundFl):ld hl,SoundMenu
1 ld a,(SetUpFl):or a:ret nz
1 ld a,(RMode):ld c,a
1 ld a,(RMode):cp 1
1 ld a,(PrintXY):ld b,a
1 ld a,(PrintAttr)
1 ld a,(PrgIFF):or a
1 ld a,(PrgIFF)
1 ld a,(PrgAFe+1):call HexA
1 ld a,(PrgAFe):call Prt_Flags
1 ld a,(PrgAF+1):call HexA
1 ld a,(PrgAF):call Prt_Flags
1 ld a,(PixelMode)
1 ld a,(Pass):or a:jr nz,CompLbl3
1 ld a,(Pass):and b:jp z,CompPut
1 ld a,(OpCode)
1 ld a,(NumIF):or a:call z,ErrIF
1 ld a,(NewSum):ld (TextSum),a
1 ld a,(MonitFl):or a:jr nz,START0
1 ld a,(MenuAttr):ld hl,#010A
1 ld a,(MenuAttr)
1 ld a,(MMenuAttr):ld (PrintAttr),a
1 ld a,(KeyModes):xor 2
1 ld a,(KeyModes):xor %100
1 ld a,(IFL_Mask):ld c,a
1 ld a,(FR_files):or a
1 ld a,(ErrorAttr):ld hl,#0709
1 ld a,(ErrorAttr):call OpenWindow
1 ld a,(ErrorAttr)
1 ld a,(EdInfAttr)
1 ld a,(DialgAttr):ld hl,#060B
1 ld a,(DialgAttr):ld hl,#060A
1 ld a,(DialgAttr):ld hl,#050A
1 ld a,(DialgAttr):ld hl,#0411
1 ld a,(DialgAttr):ld hl,#040C
1 ld a,(DialgAttr):ld hl,#0406
1 ld a,(DialgAttr)
1 ld a,(DelTabFl):or a
1 ld a,(CurY):sub 2:ld b,a
1 ld a,(CurY):ld b,a
1 ld a,(CurY):cp 2:jr nz,DOWN2
1 ld a,(CurY):cp 23:ret c
1 ld a,(CurY):cp 23:jr c,MarkLn2
1 ld a,(CurY):cp 23:jr c,DOWN2
1 ld a,(CurFlag):or a:ret z
1 ld a,(CurCol):sub c
1 ld a,(CurCol):or a:ret z ;CF=0
1 ld a,(CurCol):or a:ret z
1 ld a,(CurCol):ld l,a:ld h,0
1 ld a,(CurCol):ld e,a
1 ld a,(CurCol):and %11111000
1 ld a,(CurCol)
1 ld a,(CondFl):or a:jr z,CompLbl3
1 ld a,(CondFl):or a
1 ld a,(CondFl):ld b,a
1 ld a,(CondFl):ld (hl),a
1 ld a,(Border):and 7:out (254),a
1 ld a,(BegCol):ld d,a
1 ld a,(BegCol):ld c,a
1 ld a,(BegCol):ld b,a:xor a
1 ld a,(BegCol):cp b
1 ld a,(23838):ld hl,(PrgORG)
1 ld a,(23560):cp "q":ret z
1 ld a,#FF:ret
1 ld a,#FD:call PutByte
1 ld a,#F9:jp CompPut
1 ld a,#E9:jp CompPut1
1 ld a,#E3:jr CompPut
1 ld a,#DD:jr CompAR162-3
1 ld a,#C9:jr CompPut
1 ld a,#80:ld (IFL_Mask),a
1 ld a,#3A:jr CompLD6
1 ld a,#20:call Print
1 ld a,#17:out (bc),a
1 ld a,#10:out (bc),a
1 ld a,"i":call Print
1 ld a,"0":jr z,DecHL4
1 ld a,".":call Print
1 ld (label+1),a
1 ld (label),a
1 ld (ix),a:ld d,xl:dec xl
1 ld (ix),a:ld a,xl:ld d,a
1 ld (hl),e:inc l
1 ld (hl),e:inc hl:ld (hl),d
1 ld (hl),e:inc hl
1 ld (hl),e:dec c:jp z,Modify
1 ld (hl),d:ld d,a:ld a,#16
1 ld (hl),d:inc hl
1 ld (hl),c:dec hl:dec a
1 ld (hl),b:pop hl:ret
1 ld (hl),b:ex de,hl
1 ld (hl),a:ldir:ret
1 ld (hl),a:ld a,b
1 ld (hl),a:jr Menu5
1 ld (hl),a:inc hl:ld (MemAddr),hl
1 ld (hl),a:inc hl:djnz Label
1 ld (hl),a:inc h
1 ld (hl),a:call Menu
1 ld (hl),a: inc hl
1 ld (hl),7:dec a:out (bc),a
1 ld (hl),32:ldir:pop hl:ld de,(OBJ)
1 ld (hl),0:pop hl
1 ld (hl),#FF:inc l:djnz FW4
1 ld (hl),#FF:inc l:djnz FW1
1 ld (hl),#C3:inc hl
1 ld (de),a:ld a,b
1 ld (de),a:inc de:ld a,13
1 ld (de),a:inc de:inc hl
1 ld (de),a:dec de
1 ld (_LblAddr),hl:inc hl
1 ld (_LblAddr),hl
1 ld (_EQU_Addr),de
1 ld (_ChainEnd),hl
1 ld (Turtle),hl:pop hl
1 ld (TextSum),a:inc hl
1 ld (TABTOP),hl
1 ld (TABPTR),hl
1 ld (SPACE),de:ld hl,(OBJ)
1 ld (RegX),hl:pop hl
1 ld (RAMTOP),de
1 ld (PrintXY),hl:ex de,hl
1 ld (PrintXY),a:jr OutHL5
1 ld (PrintAttr),a:ret
1 ld (PrgSP),sp
1 ld (PrgORG),hl:ld (MemAddr),hl
1 ld (PrgORG),de
1 ld (PrgIX),ix
1 ld (PrgIR),hl
1 ld (PrgIFF),a
1 ld (PrgHLe),hl
1 ld (PrgDEe),de
1 ld (PrgDE),de
1 ld (PrgBCe),bc:exx
1 ld (PrgBC),bc:pop hl
1 ld (PrgAFe),hl
1 ld (OpCode),A
1 ld (Offset),a:inc hl
1 ld (ModifyAddr),hl
1 ld (Menu_Addr),hl
1 ld (MainLn),hl
1 ld (LineAttr),a:call Unpack
1 ld (LNDefFl),a:call LCreate
1 ld (LNDefFl),a
1 ld (KeyModes),a:jr RUSLAT1
1 ld (InsOffset),hl:ld b,h:ld c,l
1 ld (INCLDBuf),hl:ld de,1
1 ld (HeapORG),de
1 ld (FBuffSize),hl:jp MAIN2
1 ld (CurX),hl:call ReadKey
1 ld (CurX),hl
1 ld (CurCol),a:ld b,a
1 ld (CurCol),a:ld (BegCol),a
1 ld (CurAddr),hl
1 ld (CurAddr),de
1 ld (Coords),bc
1 ld (CondFl),a:push bc
1 ld (CHADD),hl:ld a,(hl)
1 ld (BreakAddr),hl:jp MAIN2
1 ld (BlockEnd),hl:ret
1 ld (BlockBeg),hl:ret
1 ld (BlockBeg),hl
1 ld (BegLine),hl:xor a
1 ld (BegLine),de:ld b,2
1 ld (BegCol),a:ret
1 ld (BegCol),a
1 ld (23823),a:ld (23824),a
1 ld (23782),hl:ld c,9
1 ld (23613),hl
1 ld (#DE8E),hl:ld (#DF74),hl
1 label ld a,0
1 label djnz label
1 label defb 0
1 label LD HL,#4d00-" a";
1 label LD HL,#4000;
1 lab3 .....
1 lab2 - #1005,
1 lab1 .....
1 l:add hl,hl
1 l,d:inc h:dec c
1 kumentirowannye komandy rabo-
1 kuda budet wywoditxsq infor
1 kotoryh rasskazano w punkte
1 kotoryh bity 2...7 budut us-
1 korrekcii adresow budet rawna:
1 korektno obrabatywaet registr
1 koli^estwo probelow w
1 kogda otlaviwaemaq program-
1 klawi{u <
1 ke pri poiske zadannogo bajta
1 kakih - libo nezaplanirowannyh
1 k,[O]-cOpy0
1 k zna^eni` adresow w komandah
1 jr z,_Reset
1 jr z,SubStr2
1 jr z,SaveNo
1 jr z,START1:call RemoveTable
1 jr z,PSpcs1:or a:ret
1 jr z,Modify4:inc c
1 jr z,Menu4
1 jr z,LoadTxt2
1 jr z,LeadSpc1
1 jr z,Input4
1 jr z,Inkey3:xor #20
1 jr z,$+5:ld hl,ErrMsg2
1 jr z,$+4:ld a,#4F
1 jr z,$+4:ld a,#12
1 jr nz,TAB1
1 jr nz,ScrUp3
1 jr nz,ScrDn3
1 jr nz,SEARCH3
1 jr nz,RdKey1:jr RdKey0
1 jr nz,PrtSrc1
1 jr nz,Procsr3
1 jr nz,PrLn3:dec c
1 jr nz,PrLn3
1 jr nz,Modify3
1 jr nz,LeadSpc1
1 jr nz,LFind3
1 jr nz,InsTxt1
1 jr nz,Inkey5:add a,#50
1 jr nz,Inkey4:jr InkeyE
1 jr nz,EvlLbl1
1 jr nz,Evl1:inc hl
1 jr nz,Error3
1 jr nz,Error2
1 jr nz,ENTER4:ld b,255
1 jr nz,DEL6:ld (BlockEnd),de
1 jr nz,DEL4:ld (BlockBeg),de
1 jr nz,CompII1
1 jr nz,CompIF2:ld (CondFl),a
1 jr nz,CompDS1:jp CompQ
1 jr nz,CW1:jp FuncTail
1 jr nz,Ar11
1 jr nz,$+4:or 7:ld (23624),a:ret
1 jr nz,$+3:di
1 jr nc,Rplc6
1 jr nc,LFind3:inc hl:inc hl
1 jr nc,LFind3
1 jr nc,FreeMem1
1 jr nc,EDIT3:call LIST
1 jr nc,CompPPP
1 jr nc,CompLD82
1 jr nc,CompLD161:call PutPrfx
1 jr nc,CompIFL2
1 jr nc,CompAR81
1 jr nc,CMND1
1 jr nc,$+3:inc a
1 jr c,SetRamTop:ld hl,(SPACE)
1 jr c,SetPool:call CalcSecs
1 jr c,SetNum1
1 jr c,SetCur1
1 jr c,SLnAdr1
1 jr c,SColor3:ld a,(SColorMenu)
1 jr c,Print1:ld h,0
1 jr c,Modify2
1 jr c,Modify1
1 jr c,MkPass1
1 jr c,Menu5:ld (hl),0
1 jr c,Insp0:call OutFS
1 jr c,HexA2:add a,7
1 jr c,Find1
1 jr c,EvlHex1
1 jr c,DelLine1:dec hl
1 jr c,DelBl1:dec de
1 jr c,CompINS2
1 jr c,CompIFL1:dec e
1 jr c,CallPrg1
1 jr c,BrkPnt1
1 jr c,$+4:ld a,86
1 jr SvText1
1 jr SubStr1
1 jr PrModes6
1 jr PrModes4
1 jr PrModes2
1 jr Modify2
1 jr LoadTxt5
1 jr LoadTxt1
1 jr InsTxt3
1 jr CompINS1
1 jr CompINCL1
1 jr CompIF2
1 jr CompDB2
1 jr Chk_CS1
1 jp nc,Overflow:jr PutB2
1 jp nc,Overflow
1 jp m,InsTxt2
1 jp c,Overflow:ld de,(TABPTR)
1 jp c,Overflow
1 jp Processor
1 jp Overflow
1 jp DiskFull
1 jp CompPut2
1 ispolneni` dwuh komand:
1 int c; main() { return 0; }
1 insert "Bold.fnt"
1 include "std.io"
1 include "chr&str"
1 include "a2.4_4"
1 include "a2.4_3"
1 include "a2.4_2"
1 include "a2.4_1"
1 inc; ------------------------
1 inc xl:ld a,c
1 inc sp:inc sp
1 inc l:ld a,l:cp 42:jr c,Print1
1 inc l:ld a,c:cpl
1 inc l:ld (hl),a
1 inc l:ld (hl),ShadowAttr
1 inc l:dec c
1 inc hl:sub 5:ld c,a
1 inc hl:sub "0":ex de,hl
1 inc hl:pop bc:pop de:ret
1 inc hl:ld d,a
1 inc hl:ld c,(hl)
1 inc hl:ld a,c
1 inc hl:ld a,1
1 inc hl:ld a,(hl):cp 32
1 inc hl:ld (ix),a:inc xl
1 inc hl:ld (hl),e
1 inc hl:ld (hl),d:jp Processor
1 inc hl:ld (hl),d:jp Modify
1 inc hl:ld (hl),d:dec hl
1 inc hl:ld (hl),#82
1 inc hl:jr OutHL0
1 inc hl:jr EvlOP
1 inc hl:jr CompDW
1 inc hl:jr CompDB
1 inc hl:jp Evl2
1 inc hl:jp CompQ
1 inc hl:inc hl:or a:ret
1 inc hl:inc hl:inc hl
1 inc hl:inc hl:cp (hl)
1 inc hl:inc de:inc bc
1 inc hl:inc de
1 inc hl:inc bc:ld a,(hl)
1 inc hl:ex de,hl:sbc hl,de
1 inc hl:ex de,hl:call DecHL
1 inc hl:cp (hl)
1 inc hl:call _Calc2:jr c,Procsr1
1 inc hl:call PassSpcs:ret
1 inc hl:call MoveMem
1 inc hl:call Comma
1 inc hl:bit 0,(hl):jr z,PutB2
1 inc hl:bit 0,(hl):jr nz,PutB1
1 inc h:inc h:ld l,7
1 inc h:inc de:exx
1 inc h:dec d
1 inc de:push de:ld hl,(LineAddr)
1 inc de:ld b,15
1 inc de:ld a,(de):call tolower
1 inc de:ld (de),a
1 inc de:inc de:inc de:inc de
1 inc de:inc c:ld a,(de)
1 inc de:exx
1 inc de:dec a:jr z,Unpk1
1 inc de:call PrintA:inc l
1 inc d:ld xl,d
1 inc d:ld (PrintXY),de:ret
1 inc d:dec c:jr z,ScrUpE
1 inc c:inc hl
1 inc bc:inc de:inc hl
1 inc bc:inc de
1 inc b:push af
1 inc b:inc hl:cp SPC
1 inc b:cp 32
1 inc b:cp (hl):inc hl
1 inc b:cp "\":jr nz,EvlEnd
1 inc b:cp "/":jr z,EvlNew1
1 inc b:cp "-":jr z,EvlNew1
1 inc b:cp "*":jr z,EvlNew1
1 inc a:out (bc),a:ld a,(hl)
1 inc a:out (bc),a
1 inc a:ld b,a:ld a,1
1 inc a:ld (NumIF),a
1 in a,(254):and b
1 ifused toupper
1 ifused tolower
1 ifused strfcomp
1 ifused strfcat
1 ifused strcomp
1 ifused strcat
1 ifused isxdigit
1 ifused isupper
1 ifused islower
1 ifused isdigit
1 ifused isalpha
1 ifused isalnum
1 ifused cp_hl_de
1 ifused cp_de_hl
1 ifused atoi
1 ifused XLAT_w
1 ifused XLAT_b
1 ifused Var_to_Stk
1 ifused Value
1 ifused Subst
1 ifused Stk_to_Var
1 ifused SetPixel
1 ifused SetAttr
1 ifused PutS
1 ifused PutPixel
1 ifused PutImage
1 ifused PutFS
1 ifused PutChar
1 ifused PrtStrHL
1 ifused PrtInit
1 ifused PrintHL
1 ifused PrintFS
1 ifused PixelMode
1 ifused PixelAddr
1 ifused Overflow
1 ifused Num_to_Stk
1 ifused NextSec
1 ifused MoveMem
1 ifused MemAlloc
1 ifused MakeName
1 ifused Interval
1 ifused Input
1 ifused GotoXY
1 ifused GetXY
1 ifused GetPixel
1 ifused GetChar
1 ifused Func_Head
1 ifused FreeMem
1 ifused FW_write
1 ifused FW_open
1 ifused FW_close
1 ifused FW_SaveBuff
1 ifused FR_read
1 ifused FR_open
1 ifused FR_close
1 ifused FR_LoadBuff
1 ifused Drawer
1 ifused Divide
1 ifused DecHL
1 ifused ClrScr
1 ifused Case
1 ifused CalcSecs
1 ifused Beep
1 iOTLAD-HEBF
1 i wweli dlq nego masku 3.Tog-
1 i komanda assemblera.
1 hhhhhhhhhhho`
1 halt:djnz Delay1
1 graph ss/i -
1 graph ent -
1 graph -
1 go to line : go to label : LOAD FILE : SAVE FILE : MERGE FILE : SAVE BLOCK : ENTER NAME : STRING : REPLACE : NONAME ANONAME CPASS
1 gistrow, operacii s bitami :
1 gistrow . Ustanowiw ukazatelx na
1 gRAM C
1 font !assm !on
1 fEnter file name:
1 f File(s). Deleted:
1 exx:push de:ld b,8
1 exx:pop hl:exx
1 exx:ld h,a:ld b,(ix+dX)
1 exx:ld e,a:exx
1 exx:ld c,a:exx
1 exx:ld b,8
1 exx:ld b,4
1 exx:ld a,h:sub 8
1 exx:ld a,h:and #18
1 exx:ld a,c:exx:and c
1 exx:ld a,c:exx
1 exx:ld a,(de):inc de
1 exx:inc d:dec c
1 exx:ex af,af'
1 ext mode -
1 ex de,hl:xor a
1 ex de,hl:pop hl:pop bc
1 ex de,hl:pop hl:dec hl:dec hl
1 ex de,hl:or e
1 ex de,hl:ld l,a:ld h,0
1 ex de,hl:ld e,c:ld d,b
1 ex de,hl:ld b,11
1 ex de,hl:ld a,(hl)
1 ex de,hl:ld a,(de)
1 ex de,hl:ld a,"(":call Print
1 ex de,hl:call strcat
1 ex de,hl:call PassSpcs
1 ex de,hl:call MakeNumber
1 ex de,hl:call FW_open
1 ex de,hl:add hl,hl:ld b,h:ld c,l
1 ex af,af':push af:pop hl
1 ex af,af':ld a,(hl):xor l
1 ex af,af':exx
1 ex (sp),hl:push hl
1 ex (sp),hl:push af
1 ex (sp),hl:ld (hl),e
1 ex (sp),hl:ld (CHADD),hl
1 ex (sp),hl:ex de,hl
1 ex (sp),hl:call OutHL
1 esli wam prihodilosx s nim ra-
1 ei:ld b,15
1 ee sodervimoe navaw
1 edit -
1 eSLI wY ZNAKOMY S ASSEMBLEROM
1 drugu` klawi{u.
1 drugie adresa. Programma,naho-
1 dq}aqsq po adresu
1 dowalasx odna celx - obleg^itx
1 djnz Unpk4:jr Unpk2
1 djnz Unpk1
1 djnz SEARCH1
1 djnz SColor1
1 djnz PutIm2
1 djnz Prt_Fl1
1 djnz PrtSrc2
1 djnz PrLn8
1 djnz PrLn4
1 djnz Pack2:jr Pack6
1 djnz OpenW2
1 djnz OpenW1
1 djnz Menu3
1 djnz Label
1 djnz LIST1
1 djnz LFind2
1 djnz Insp2
1 djnz Insp1
1 djnz Input11:jp Input1
1 djnz ENDLN1:ld a,(BegCol)
1 djnz CompINCL2
1 dizasemblirowanna tak,kak bud-
1 dervit ob'ektiwnogo koda.
1 dennogo adresa pod kontrolem mo-
1 delete -
1 dec xl:inc xh
1 dec l:jr nz,Drawer
1 dec hl:ld a,h:or l
1 dec hl:ld (hl),a
1 dec hl:ld (hl),32:jr BACKSP2
1 dec hl:ld (hl),32:inc hl
1 dec hl:ld (hl),13
1 dec hl:ld (_ChainEnd),hl
1 dec hl:dec hl:jr nz,CompDB2
1 dec hl:cp 13:call z,ErrSynt
1 dec hl:cp (hl):inc hl
1 dec h:ld b,c
1 dec de;___________________________
1 dec de:ld a,e:sub LineBuff
1 dec de:ld a,d:or e
1 dec d:jr nz,Cat7
1 dec d:dec c:jr z,ScrDnE
1 dec c:jr z,CompJR
1 dec c:jr z,CompDJNZ
1 dec c:jr z,CompCALL
1 dec c:jr nz,PrLn2
1 dec bc:jr JumpTxt1
1 dec b:ld a,b:jp RIGHT2
1 dec b:ld (hl),b
1 dec b:dec c:jp Cat3
1 dec a:ld (CurCol),a:ld b,a
1 dec a:jr z,EvlSub
1 dec a:jr z,EvlMul
1 dec a:jr z,EvlDiv
1 dec a:jr z,CompRST
1 dec a:jr z,CompIM
1 dec a:jr z,CompEX
1 dec a:jr Menu7
1 dec a:jp z,Processor
1 dec a:dec hl
1 dec a:call z,ErrSynt
1 dec a:add a,b:ld b,a:jr Error2
1 da budut najdeny wse bajty w
1 dMONKESH B
1 cursor -
1 cs/ent -
1 cs/4 -home/end (
1 cs/3 - ovr/ins;
1 cs/2 -
1 cpi:jp pe,ChkS1
1 cpdr:cpdr:inc hl:inc hl
1 cp b:ret nc:jr LEFT2
1 cp b:jr nc,CompLD84:ld a,b
1 cp UP:jr z,Input7
1 cp SPC:scf:ret nz
1 cp SPC:ld b,0
1 cp SPC:jr z,UnpSPC
1 cp SPC:jr z,OutHL4
1 cp SPC:jr z,CompDB3
1 cp LEFT:jr z,Input8
1 cp IFStkSz:call nc,ErrIF
1 cp IFL_Sz:call nc,ErrIF
1 cp ENTER:jr z,Input7
1 cp DOWN:jr z,Input7
1 cp CAPSLOCK:jr nz,Input4
1 cp BACKSP:jr z,Input6
1 cp 8:jr z,Input8
1 cp 8:jr z,Input10
1 cp 7:ld b,#FD:jr z,CompJP1
1 cp 7:jr z,Input9
1 cp 7:jr c,CompLD83
1 cp 6:jr z,Input8
1 cp 6:jr nz,Input4
1 cp 3:jr z,CompAR16
1 cp 33:jr nc,CMND_Help:pop de
1 cp 32:ret c:call MakeName
1 cp 32:jr z,TAB2:jr TAB5
1 cp 32:jr z,DEL3
1 cp 32:jr nz,PrLn6
1 cp 32:jr nz,Inkey2
1 cp 2:jr nz,CompLD4
1 cp 2:jr c,CompAR16
1 cp 2:call nz,ErrInstr
1 cp 27:jr z,CompIN1
1 cp 25:ret nc
1 cp 25:call nz,ErrInstr
1 cp 25:call nc,ErrInstr
1 cp 23:jr c,EDIT7
1 cp 22:jr z,OutHL3
1 cp 21:jr z,CompAR162
1 cp 21:jr nc,Input4
1 cp 20:jr z,CompEX2
1 cp 1:ld a,32:jr z,Pack4
1 cp 1:jr nz,Cat6
1 cp 18:jr z,CompEX1
1 cp 16:jr z,OutHL2
1 cp 14:ld a,2
1 cp 14:jr z,CompIN1
1 cp 14:call nz,ErrInstr
1 cp 13:scf:ret nz
1 cp 13:jr z,Unpk3
1 cp 13:jr z,SubStr3
1 cp 13:jr z,Pack5
1 cp 13:jr z,Input7
1 cp 13:jr z,CompINCL3
1 cp 13:jr nz,Pttrn1
1 cp 13:jr nz,Num_St1
1 cp 13:jr nz,Inkey6
1 cp 13:jr nz,ChkEsc1
1 cp 12:jr z,Input7
1 cp 12:jr z,Input6
1 cp 12:jr nc,Reg81
1 cp 12:jr nc,Procsr3
1 cp 128:jp nc,Overflow
1 cp 128:jp nc,DiskFull
1 cp 127:jr nc,RIGHT2:inc a
1 cp 11:jr z,Input7
1 cp 10:jr z,Input7
1 cp 10:jr c,Input4
1 cp #80:jr c,Inkey5
1 cp #41:jr nc,SetPool
1 cp #3A:jr c,HexA2
1 cp #22:jr z,EvlChar
1 cp #22:jr nz,Evl3
1 cp #22:inc hl:jr z,CompDB1
1 cp "y":jr z,Rplc5
1 cp "w":ld c,2:jr z,Modify4
1 cp "n":jr nz,Rplc2
1 cp "b":ld c,1:jr z,Modify4
1 cp "a":ld a,#32:jr z,CompLD6
1 cp "a":jr z,Rplc4
1 cp "_":scf:ret z
1 cp "_":jr z,EvlLabel
1 cp "_":jr nz,Comp2
1 cp "=":jr nz,Procsr1
1 cp ";":ret z:cp ":"
1 cp ":":jr nz,CompQ1
1 cp "0":jr z,DecHL3
1 cp "0":jr nz,EvlOP
1 cp "-":jr nz,Evl2
1 cp ",":ret z
1 cp ",":call nz,ErrSynt
1 cp ")":ld a,0:jr z,Reg82
1 cp ")":call nz,ErrSynt
1 cp "(":jr z,CompLD162
1 cp "%":jr z,EvlBin
1 cp "$":jr z,EvlTrtl
1 cp "#":jr z,EvlHex
1 character in the line is a semicolon. Blank lines are also allowed to space out a listing. Both comments and blank lines are ignored by the a
1 ccf:ret nc:ld a,(BlockAttr):ret
1 call z,ErrSynt
1 call z,ErrInstr
1 call z,CompLnNum
1 call toupper:ld b,13:call Case
1 call tolower:push de
1 call save_hl_de:jp MAIN2
1 call nz,ErrSynt:inc hl
1 call nz,ErrJROut
1 call nc,ErrSynt:jr CompIN1
1 call islower:ret
1 call isdigit:ret c
1 call isdigit:ld a,32
1 call isdigit:jr nc,CMND1
1 call isdigit:jr c,EvlDec
1 call isalpha:jr nc,InkeyE
1 call isalpha:jr nc,Inkey3
1 call isalpha:jr c,EvlLabel
1 call isalpha:jr c,CompLbl
1 call isalnum:ret nc
1 call isalnum:jr c,SEARCH4
1 call cp_hl_de:ret nc
1 call cp_hl_de:ret
1 call cp_hl_de:jr z,MarkLn1
1 call cp_hl_de:jr z,Error3
1 call cp_hl_de:jr nz,DEL7
1 call cp_hl_de:jr nz,DEL5
1 call cp_hl_de:jr nz,CopyBl1
1 call cp_hl_de:jr nz,Assm5
1 call cp_hl_de:jr nc,Unpk3
1 call cp_hl_de:jr nc,SetRamTop
1 call cp_hl_de:jr nc,SetCur2
1 call cp_hl_de:jr nc,LoadTxt3
1 call cp_hl_de:jr nc,ChckPrg1
1 call cp_hl_de:jr c,_shift1
1 call cp_hl_de:jp nc,Overflow
1 call cp_hl_de:jp nc,FILES
1 call cp_de_hl:pop de
1 call cp_de_hl:jr c,DelBl2
1 call _shift:ld hl,PtrSL
1 call _shift:ld hl,PtrSH
1 call _shift:ld hl,BlockEnd
1 call _shift:ld h,d:ld l,e
1 call __Calc:scf:ret nz
1 call __Calc:jr nz,_Calc11
1 call _PrevLine:jr nc,DOWN2
1 call _PrevLine:djnz PGUP1
1 call _NxtPos:ld a,"#":call Print
1 call _NextLine:jr nc,MarkLn2
1 call _NextLine:jr nc,DOWN2
1 call _NextLine:jr c,ENTER3
1 call _NextLine:djnz PGDN1
1 call XLAT_w:ld de,EDIT1
1 call XLAT_w
1 call XLAT_b:pop de
1 call XLAT_b:ld (CondFl),a
1 call XLAT_b:jr CompPut
1 call Value:pop af:jp CompLD6
1 call Value:ld a,e:call PutByte
1 call Value:ld a,e
1 call Value:ld a,(LNDefFl)
1 call UpByte:push de
1 call Unpack:pop bc
1 call Unpack:ld a,c
1 call Unpack:ld a,(CurCol)
1 call Unpack:call PackBuff
1 call Subst:DB 6
1 call Subst:DB 11
1 call Subst
1 call Subrout3
1 call Subrout2
1 call Subrout1
1 call SetLnAttr:ld (LineAttr),a
1 call SetLnAddr:ret
1 call SetCurXY:ld a,(CurY)
1 call SetCurXY:call OutFS
1 call SetBegLine:scf:ret
1 call SetBegLine:call SetLnNum
1 call SetBegCol:jr LEFT2
1 call SetBegCol:call SetLnNum
1 call Scroll_Up
1 call Scroll_Down:jr DOWN1
1 call STK_STORE
1 call SEARCH:jr nc,Procsr1
1 call RusLat
1 call RestoreRegs:ret
1 call RemoveTable:res 5,(iy+1)
1 call RemoveTable:ld a,(MergeFl)
1 call RemoveTable:jp MAIN2
1 call RemoveTable:jp EDIT
1 call RemoveTable
1 call RemoveBlock
1 call Regs:jr nc,CompLD2
1 call Regs:call nc,ErrSynt
1 call Reg80:jp c,CompLD8
1 call Reg160:jp c,CompLD16
1 call ReadKey:cp 32:jr c,Input6
1 call RIGHT:jr EDIT1
1 call PutPrfx:ld b,1:jr CompLD5
1 call PutPrfx:ld a,c
1 call PutPixel
1 call PutPCO:ld a,e:jp CompPut
1 call PutCursor:ret
1 call PutCursor:ld hl,WaitConst
1 call PutChar:jr PutS
1 call PutChar
1 call PutByte:ret
1 call PutByte:ld a,e:call PutByte
1 call PutByte:jr CompDB2
1 call PutByte:djnz CompDB4
1 call PrtSource:ret
1 call PrintMenu
1 call PrintLine:inc c
1 call PrintLine:call PrintCurCol
1 call PrintKeyModes:scf:ret
1 call PrintEdInfo:scf
1 call PrintEdInfo
1 call PrintCurCol:pop bc
1 call PrintCurCol
1 call Print:ret
1 call Print:ld a,":":call Print
1 call Print:ld a,":":c
1 call Print:jr OutHL0
1 call Pattern:res 0,(iy+2)
1 call Pattern:call FindStr
1 call PassSpcs:call c,ErrLabel
1 call PassSpcs:call Reg8
1 call PackBuff:call InsLine
1 call Pack:ld de,CMND5:push de
1 call Pack:jr Rplc3
1 call OutHL:scf:ret
1 call OutHL:call CompLnNum
1 call OutFS:DB SPC,3,"Free:",0
1 call OutFS:DB SPC,20,0
1 call OutFS:DB 22,7,24
1 call OutFS:DB 22,7,15
1 call OutFS:DB 22,7,13,"2",0
1 call OutFS:DB 22,6,24
1 call OutFS:DB 22,6,12
1 call OutFS:DB 22,5,9,0
1 call OutFS:DB 22,16,10,"Set ",0
1 call OutFS:DB 22,13,14
1 call OutFS:DB 22,11,8,0
1 call OutFS:DB 22,11,8
1 call OutFS:DB 22,10,17,0
1 call OutFS:DB 22,10,15,0
1 call OutFS:DB 22,1,33,"Col ",0
1 call OutFS:DB 22,1,21,"Line ",0
1 call OutFS:DB 22,1,0,"
1 call OutFS:DB 22,0,0
1 call OutFS:DB "Search",0
1 call OutFS:DB "Rus
1 call OutFS:DB "Insert
1 call OutFS:DB "Caps
1 call OutFS:DB " : ",0
1 call OutFS:DB "
1 call OutFS:DB "
1 call OpenWindow:call OutFS
1 call Multiply:jr EvlRes
1 call MoveMem:ret
1 call MoveMem:ld hl,(TABTOP)
1 call MoveMem:ld hl,(PtrSL)
1 call MoveMem:ld (hl),13
1 call Menu_Struct
1 call Menu_Cursor
1 call MakePass:jr z,Assm4
1 call MakePass:jr z,Assm1
1 call MakeNumber:jr EvlOP
1 call MakeNumber
1 call MakeName:pop de
1 call MakeName
1 call LoadSetUp
1 call LeadSpaces:push af
1 call LeadSpaces
1 call LUpDate:jr CompLbl2
1 call LIST:ld hl,(LineAddr)
1 call LFind:pop bc
1 call LFind:jr nc,CompLbl1
1 call LFind:jr c,EvlLbl2
1 call Interval:ccf:ret nc
1 call InsText:ld hl,(LineAddr)
1 call InsLine:jr ENTER2
1 call Input:cp 13:ret nz
1 call Input:cp 13:jp nz,MAIN2
1 call InpFlName:jr c,SaveNo1
1 call Inkey:jr z,Error5
1 call Inkey:jr z,ErrL2
1 call Inkey:jr z,Cat8
1 call Inkey:jr z,Cat1
1 call Inkey:jr z,C_Help1:ret
1 call Inkey:jr nz,RdKey2
1 call Inkey:cp 19:call z,ErrBreak
1 call InitColors:jp SetColors
1 call InitColors
1 call Ident:push de:push hl
1 call Ident:jr EvlLbl3
1 call HexHL:jp Insp0
1 call HexHL
1 call HexA1:pop af
1 call GetMasks ;HL-screen addr,
1 call GetChar:jr c,CompINCL4
1 call GetChar
1 call Frame_Wind
1 call Forward:ret nc
1 call Forward:ld de,(BlockBeg)
1 call Forward:ld a,0
1 call Forward:inc b
1 call FindStr:jr nc,Rplc1:ret
1 call FindStr:jr c,SrchNFnd
1 call FastPrt
1 call FConds:jr nc,CompJP4
1 call FConds:jr c,CompRET1
1 call FConds
1 call Evaluate:pop bc
1 call ErrNFnd
1 call ErrInstr
1 call Divide:jr EvlRes
1 call Divide:ex de,hl:jr EvlRes
1 call Delay
1 call DecHL:pop hl:ret
1 call DecHL:call OutFS
1 call DecHL
1 call DOS -
1 call CurChrAddr:ld a,(KeyModes)
1 call CurChrAddr:ld a,(CurCol)
1 call CompLnNum:call PassSpcs
1 call CompLnNum
1 call CompLine:pop de:inc de
1 call CompLine
1 call Comma:ld e,c
1 call Comma:ld de,#40DB
1 call Comma:ld a,c
1 call Comma:jr Comp71
1 call Comma:call Reg16
1 call ClrScr:pop de:jp RunPrg1
1 call ClrScr:ld de,(PrgORG)
1 call ClrScr
1 call ClrMssg
1 call ClrDosErr:ld hl,Font6
1 call Clear_Wind
1 call Chk_Sum:ld (NewSum),a
1 call ChkExtMem:jr nz,START0
1 call Check_CS:jr nz,Inkey7
1 call Check_CS:jr nz,Inkey1
1 call CheckPrg:call InitRegs
1 call BlockExist:ret nc:push de
1 call BegText:ld hl,(TEXT)
1 call BegText:jr SetNum3
1 call BegText:call RemoveBlock
1 call Beep:res 5,(iy+1)
1 call Beep:jr Menu1
1 call Beep:inc de
1 call Beep:dec de
1 call Beep:call RusLat:jr Input1
1 call Beep:call CapsLock:jr Input1
1 call Backward:jr _NxtLn1
1 call Backward:djnz SetBegL1
1 call Backward:djnz PGUP2
1 call Backward:call Unpack
1 call 15635:ld a,b
1 call 15635:jp MAIN2
1 call #DB00:call Delay
1 call #16BF ;
1 c,'(',#d3,'+"1"!2)V',#0d
1 c"ceclcsczc
1 budut ignorirowatxsq.
1 break -
1 botatx to wy zametite shodstwo
1 boot BU(U()
1 bit 7,c:jr nz,DecHL4
1 bit 7,b:jr nz,TAB4:ld c,b
1 bit 7,b:jr nz,TAB3
1 bit 7,b:jr nz,PrtA6
1 bit 7,b:jr nz,PrtA4
1 bit 7,b:jr nz,PrtA2
1 bit 5,(iy+1):ret z
1 bit 5,(iy+1):jr z,Menu2
1 bit 5,(iy+1)
1 bit 3,b:jr nz,PrtA2
1 bit 2,a:jr z,ENTER1
1 bit 2,a:jr z,EDIT6
1 bit 2,a:jr z,DEL2
1 bit 2,a:jr nz,BACKSP1
1 bit 1,c:jr nz,DecHL5
1 bit 1,a:ld a,#DD
1 bit 1,a:jr z,PrModes1
1 bit 1,(hl)
1 bit 0,c:jr z,DecHL4
1 bit 0,c:jr nz,PrtA5
1 bit 0,c:jr nz,PrtA3
1 bit 0,c:jr nz,PrtA2
1 bit 0,b:jr z,CompIFL3
1 bit 0,a:ld a,#DD
1 bit 0,(iy+2):jr nz,Rplc5
1 bit 0,(hl):jr z,PutB3
1 bez parametrow priwodit k
1 bajt-zapolnitelx
1 bZ""""""""*
1 bOTLA3 C
1 bMONK95 B
1 b6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e6e
1 b-cBc4c;cPc
1 b-c4c;cBcIc
1 and b:or (hl):ld (hl),a
1 and a:sbc hl,bc:jp c,Overflow
1 and a:sbc hl,bc:jp c,DiskFull
1 and 3:exx:or (hl)
1 and (hl):ld d,a:ld a,c
1 and %11100000:add a,(ix+1)
1 and %11000000:ld c,a
1 and #38:add a,#C7:jr CompPut
1 and #1F:cp #1F:jr z,FPrt2
1 and #18:or #40:ld xh,a
1 and #0F:add a,#30
1 alxno, o^enx ^asto bywaet ne-
1 adresa popada`t w promevutok
1 adres realxnogo
1 adres predpologaemogo
1 adres podprogrammy.
1 adres na^ala programmy
1 adres na^ala fragmenta
1 adres na^ala bloka
1 adres konca programmy
1 adres konca fragmenta
1 adres konca bloka
1 add ix,sp:exx:push de:exx
1 add ix,bc:pop bc:ret
1 add hl,hl:add hl,hl:add hl,hl
1 add hl,de:ld (hl),ShadowAttr
1 add hl,de:ex de,hl
1 add hl,de:add a,"0"-1
1 add hl,bc:ld a,129
1 add hl,bc:ld (TABTOP),hl
1 add hl,bc:ld (TABPTR),hl
1 add hl,bc:ld (OBJ),hl
1 add hl,bc:jp c,Overflow
1 add hl,bc:ex de,hl:inc hl
1 add hl,bc:call OutHL
1 add a,l:ld l,a
1 add a,d:ld d,a
1 add a,d:jp CompPut1
1 add a,d:jp CompPut
1 add a,c:ld d,a:dec d
1 add a,c:dec a:ld l,a
1 add a,b:ld d,a
1 add a,b:ld b,a:jr Ident1
1 add a,b:jr CompPut1
1 add a,b:add a,b:jr CompPut1
1 add a,a:ld l,a:ld h,0
1 add a,a:add a,c:ld c,a
1 add a,9:ret
1 add a,9:ld b,a:jp p,TAB5:ld b,128
1 add a,8:ret
1 add a,42:ld e,a:ld a,b
1 add a,40:jr RIGHT1
1 add a,14:ld c,a
1 add a,#40:ld b,a:call Value
1 add a,#30:cp #3A
1 add a,"d":call Print
1 adc a,c:add a,c:ld l,a
1 aUtoexec (
1 aNother -
1 a2.4exe Cpbq?@
1 a2.4_p C5
1 a2.4_3 CO
1 a2.4_2 CO
1 a2.4_1 C5
1 `OTLAD3.0B@
1 `OTLA1 C
1 `BbEdas 3.0 Written by S.Maslov, Obninsk 1993........ Copying is prohibited !!! .......
1 _zamena9diska
1 _wozwrat9w9
1 _stranica9wpered
1 _stranica9nazad
1 _shift1 pop hl:ret
1 _perekl`~enie9zagl=
1 _perekl`~enie9revimow9
1 _informaciq
1 _`ObjectCode
1 _______________________________________
1 __________________________________
1 _________________________________
1 __________________________
1 _______________________
1 __________________
1 ___ ROUTINES ___
1 ___ COMPILER ___
1 _NxtLn1 ld (LineAddr),hl:ld (LineNum),de
1 _EQU_Addr DW 0
1 _ChainEnd DW 0
1 _Calc1 ;in:HL - (Y,X) for message
1 ^to o^enx polezno pri otladke.
1 ^islo9NE9bolx{e
1 ^inaq s ukazannyh adresow.
1 ^eniq bitow, ukazannyh w mas-
1 ^19 8 The End.
1 ^18 7
1 ^16 5
1 ^15 4
1 ^13 3.2
1 ^12 3.1
1 ^11 3.
1 ^10 2.4
1 ^09
1 ^08
1 ^07
1 ^06 2.3
1 ^05 2.2
1 ^04 2.
1 ^03 1.3
1 ^02 1.2
1 ^01 1.
1 \to i ne zadumywalosx .
1 \OTLAD1.1B@
1 [N1] [N2]-ABTOMAT
1 [N1] [N2]-
1 [N1] [N2] [N3]-
1 [I]-fIll b
1 Zapustitx9fajl
1 Zapisatx9izmeneniq
1 Zapisatx9dorovku
1 Zapisatx99sektor
1 Za osnowu byl wzqt o^enx udob-
1 ZXSPECTRUM
1 ZXASM2.4BH
1 ZX Turbo Assembler
1 ZX SPECTRUM 48 (
1 ZX SPECTRUM
1 ZE;" ";C$(JL,TR);" ";C$(JL,FR);
1 ZE;" ";C$(J,ON)+" "+C$(J,TW)+C$(J,TR);"= >";
1 ZAPUSTITX WYPOLNENIE PROGRAMMY.
1 ZAPUSK PODPROGRAMMY W KODAH
1 ZAPOLNENIE FRAGMENTA PAMQTI.
1 ZAGRUZITSQ TEKSTOWYJ FAJL S DO-
1 ZADANIE RAZMEROW OKNA.
1 Z""""""""""*""""""""""""""
1 XX0``lhphl
1 XTEND CS+Z
1 XTEND CS+W -
1 XTEND CS+S -
1 XTEND CS+ENTER -
1 XMACROS XaS
1 XLAT_w - HL.
1 X CTPOK. EC-
1 X CTOPOH ,EC
1 X CEKTOPOB,
1 X (SS/E) CTPOK HET,
1 Wyjti9iz9procedury
1 Wy9uwereny9
1 Wstawxte99prinima`}ij9dis
1 Wstawxte99kopiruemyj99dis
1 Written by Hohlov Oleg
1 Wozwrat w monitor osu}estwlqet
1 Work file (W) -
1 WasLabel DB 0
1 WaitConst EQU 7500
1 WYWESTI NA \KRAN DAMP PAMQTI.
1 WYWESTI DAMP PAMQTI.
1 WOZWRAT W
1 WIND from ST1 to ST2
1 WEdas 3.1B)
1 W revime trassirowki monitor
1 W P Q R S T U V W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`W
1 Version 2.5
1 Version 2.4
1 Var_to_Stk
1 VarLabel+2
1 VEDAS3.0HB
1 V 3.02R 512K
1 V 3.02R 48K
1 User Scre8F
1 Unpack push bc:push hl:ld hl,LineBuff
1 UnpSPC ld a,(hl):res 7,a:inc hl
1 Undefined label
1 Undefined labeL.
1 USTANOWITX TO~KU OSTANOWA.
1 UNDEFINED SYMBOL
1 UGLEKOW K.V.
1 TurboAssembler
1 Trassirowka osu}estwlqetsq w
1 Titol DISK_1
1 Text end =
1 Text Length:
1 Target Too Far -
1 Table Size :
1 TW)+C$(J,TR))
1 TRACE from AD1
1 TOTAL ERRORS
1 TO RABOTA S
1 TO KACAETC
1 TEME PRIMUS COOTBETCTB
1 TAT:XLAT_b - A,
1 TAPE ERROR
1 TA OCTAETC
1 T
1 S~itatx99dorovku
1 Syntax error
1 Syntax In Number -
1 Syntax Error
1 Syntax -
1 SubString ld hl,LineBuff:xor a
1 StoreRegs ld (PrgHL),hl
1 Stk_to_Var
1 Steretx9mark
1 Standartnyj nabor,pl`s komandy
1 Stalker present
1 Sprite1 DB 5,10
1 Sprite1 DB 16,16
1 SoundMenu DB 0,2
1 Sound Bee
1 Sootwetstwuet komande
1 Sokra}ennyj listing ne so-
1 Skorostx trassirowki programmy
1 Skipping -
1 Sintax error.
1 Shelp ha$C@
1 Shelp ha CP
1 ShareWare
1 Shandy C
1 ShadowAttr equ #01
1 SetUpSize equ SetUpEnd-SetUp
1 SetUpName DB "SetUp2.4C"
1 SetUpMenu DB 0,6
1 SetUp, Pool size.
1 SetUp, Pool Size (
1 SetSound ld a,(DialgAttr):ld hl,#0513
1 SetRamTop ld a,(DialgAttr):ld hl,#0311
1 SetLnNum push hl:push bc:ld hl,(TEXT)
1 SetLnAttr ld a,(TextAttr):ld de,(BlockEnd)
1 SetLnAddr ;
1 SetBreak push hl:push de:push bc
1 SetBegLine push de:push hl
1 SetBegCol sub 42:jr nc,$+4:ld a,#FF
1 Set ix=#4000
1 Set hl=#FFFF
1 Set f=%00000001
1 Set f'=%11111111
1 Set e=#80+5
1 Sectors Start
1 SearchBuff DS 16
1 Scroll_Down
1 SaveText ld h,3:ld de,FlNameBuff
1 SaveBlock call BlockExist:jp nc,FILES
1 Save (S) -
1 S^et^ik komand RS ustanawliwaet-
1 SYMBOL TABLE
1 SYMBOL SHIFT + K -
1 SYMBOL SHIFT + 4
1 STalker Stealth monito
1 STalker Stealth mL2
1 STS128 v.2.5,
1 STS 2.6 HEL
1 STS 128,ver.2.5
1 STR_AND_NO
1 STK_HALF_PI
1 STARYE KLAWI[I
1 STARTA PROGRAMMY AWTOMATI^ESKI
1 SSM NAME -
1 SPC - Spaces Compressor.
1 SPACE]-Escape,[ENTER].p
1 SP=FE78 5678 DB56 F345 7845 FEAB
1 SOZDANIE NULEWOJ STROKI.
1 SONG BY ST COMPILE
1 SME]ENIE ADRESOW.
1 SLnAdr3 ld (LineNum),de
1 SKIDOK, POSTAWKA PO PO^TE I REK-
1 SIMBOL_SP .............
1 SHIFT from AD1 to AD2
1 SET ADRESS TO DECOMPILE : #
1 SET 1,(IX+3)D,
1 SET 1,(IX+3) + LD D,(IX+3) .
1 SERWISNYE KOMANDY:
1 SERWISNYE KOMANDY:
1 SERWISNYE KOMANDY :
1 SEARCH5 dec hl:ld a,(hl)
1 SColorMenu
1 SColorBuf DS 10
1 SB=SF-SS+ON
1 SAVE*******************
1 SAVE CODE :
1 SATISFACTION MEGADEMO_
1 S=_Peterburg
1 S.S.+W - Insert -
1 S.S.+SPACE - Main Menu -
1 S.S.+Q - Home -
1 S.S.+Enter;
1 S.S.+Enter - Delete Line -
1 S.S.+E - End -
1 RunPrg1 ld hl,RetPoint:call SetBreak
1 Run (R) -
1 Routine Library
1 Revim polezen kogda trebuetsq
1 RetPoint call StoreRegs:jp START1
1 RestoreRegs ;IN: de,hl
1 ResetBlock
1 Replace with:
1 Replace call OutFS:DB "Replace",0
1 RemoveTable ld hl,(RAMTOP)
1 RemoveBlock ld hl,(TEXT):ld (BlockBeg),hl
1 Raspoznaetsq komanda sdwiga
1 RINKp:p: :
1 RELOC from AD1 to AD2 to AD3
1 REDAKTIROWANIE PAMQTI.
1 RANDOMIZE USR 23600 (
1 RAM top -
1 R- Replace
1 R -AWTOMATI~ESKIJ LISTING.
1 QuitMainMenu
1 Quit (Q) -
1 Q- Quit to main menu
1 PutPrfx ld a,(Prefix):or a:ret z
1 PutByte push hl:ld hl,CondFl
1 Pustx Was ne udiwlqet, ^to
1 Prt_Flags ld c,a:ld b,8
1 PrtSource call OutFS:DB 22,7,27,0
1 Program not saved. Save?
1 Program ORG:
1 ProcsrRegs
1 ProcsrBuff DS 20
1 Processor.
1 Processor -
1 PrintLineNum
1 PrintLine push hl:push bc
1 PrintLN2 call Print:djnz PrintLN2
1 PrintLN1 ld a,3:inc hl:call DecHL
1 PrintKeyModes
1 PrintEdInfo
1 PrintCurCol
1 PrintAttr DB 7
1 Print (P) -
1 Pri napisanii monitora presle-
1 Press any key
1 PrModes6 ret
1 PrModes5 call OutFS:DB SPC,8,0
1 PrModes4 bit 2,a:jr z,PrModes5
1 PrModes3 call OutFS:DB "Lock
1 PrModes2 bit 0,a:jr z,PrModes3
1 PrModes1 call OutFS:DB "Lat
1 Pozwolqet izmenitx frontalxnu`
1 Powtornoe navatie klawi{i poz-
1 PoolBuff DS 12
1 Pool size -
1 Pool Size:
1 PixelAddr ld a,b:and a:rra
1 PixelAddr ld a,b
1 PixelAddr ld (Coords),bc
1 Phone: (0572)452569
1 Perwaq9swobodnaq9dorovka>>
1 Pereme}enie9kursora_klawi{ami9kursora
1 Pereme}aet ukazatelx re-
1 Pereimenowat
1 Pattern ld a,(DialgAttr)
1 Pardon ? - KOMAH
1 PRI_DRIVE .............
1 PRINT_STRING
1 PRINT_NEX_HL
1 PRINT_NEX_A
1 PRINT_DEC_HL_Z
1 PRINT_DEC_HL_NZ
1 PRINT_CHAR
1 PRINT A BLOCK OF LINES
1 PRIMUS ASSEMBLER V.2.9 ( CEHT
1 PRIMUS ASSEMBLER - ACCEM
1 PRIMUS ASSEMBLER
1 PRIMUS ASSEMBLER
1 PRIMUS ASSEMB-
1 PRESS SPACE TO NEXT PAGE
1 POXSNPOXSN768902134585679*****
1 POISK POSLEDOWATELXNOSTI BAJT
1 POBEPKA: D <= A < E
1 PHELP HA.BL
1 PEREWOD ~ISEL.
1 PEREOPREDELENIE
1 PEREME]ENIE UKAZATELQ ADRESA:
1 PEREKL@~ITX NABOR REGISTROW.
1 PCSPIYIXHLDEBCAFSZ H VNC
1 PCOPOM AHO
1 PCOP-B(0,0)
1 PCOP - B HA
1 PC=7DF0 FDCBFF3E SLR (IY-1)
1 P> (SHIFT from).
1 OvrflMsg DB "Not Enouth Memory",0
1 Overflow rst 8
1 Overflow ld hl,OvrflMsg
1 Out:HL = Address,A = Mask
1 Out of simbol space.
1 Osu}estwlqet trassirowku do wwe-
1 OpenWindow
1 Object save (O) -
1 Object File Name:
1 Ob?em9fajla9iz
1 OWERMASTER
1 OPMATE PRIMUS'
1 ON;"LOADING"
1 ON;"LISTING"
1 ON;"INITIALISING"
1 ON;"DUMPING":
1 OCb O 99%-HO
1 OB]IE DLQ WSEH REVIMOW :
1 OBJECT CODE BUFFER&
1 OBJ Buffer :
1 OBATb METK
1 OBA, HA KOTOPOM CTO-
1 OB HET, TO BO3BPA-
1 O9[9I9B9K9
1 O3Y;Y,Y!]O:
1 O(C$(J,ON))
1 O(C$(CL,ON))
1 O KOMEHTAP
1 O H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`O
1 O COXPAHEHO
1 O CEKTOPOB.
1 O -POLNYJ/SOKRA]ENNYJ LISTING.
1 O wseh nedostatkah pi{ite
1 Number Too Big -
1 Num_to_Stk
1 Num_St1 ld a,(hl):inc hl
1 Nowaq9mask
1 No memory for text
1 No memory for line(s).
1 No memory for line(s)
1 No Label -
1 No File -
1 New name (N) -
1 Nesankcionirowannaq99kopi
1 Ne9TOT9disk99
1 Na~alo_dor=
1 Na^inaq s adresa
1 Na^alxnyj adres trassirowki.
1 Na9diske9NET9takogo9fajla
1 Na |kran wywoditsq tolxko adres
1 Na |kran wywoditsq sodervimoe
1 NYM ^islom stawitsq <#>, a
1 NUMLP=NUMLP+ON
1 NPRI.DOC CT
1 NPRI.ASS C
1 NONAME (60%) TAB EXTEND INDENT
1 NONAME (60%)
1 NN1,NN2,NN3,...-
1 NN1,NN2,NN3,...
1 NL=ON+(C$(CL,TW)
1 NEW SCREEN EDITOR WITH ASSEMBLER
1 NEH ili naoborot. NEH ^islo
1 NDdDDFDdDdDdDDdDDDdd&&"
1 N3-CTPOKA ,
1 N1=(TJ=ON)*TR+(TJ=-ON)*TW
1 N1,N2,N3,...-
1 N1,N2,N3,...
1 N- Reset block
1 N -PEREWESTI ~ISLO iz
1 Mread C
1 Mpri.hlp C
1 MoveBlock call CopyBlock:ret c
1 Monitor pereme}aem, ego dlin-
1 Monitor ne rabotaet s printe-
1 MonitFile DB "STS12825C"
1 ModifyBuff DS 20
1 ModifyAddr DW 0
1 Mnogo9sektoro
1 Mnogo9fajlo
1 Missing jump relative.
1 Missing jump relative
1 Missing ORG.-
1 Mising ORG
1 Menu_Up ld a,(hl):or a:jr z,Menu6
1 Menu_Struct
1 Menu_Dn ld a,(hl):inc a
1 Menu_Cursor
1 Menu_Addr DW 0
1 MenuEsc pop de:pop bc:ret
1 MenuEnt call Menu_Cursor:call Beep
1 Memory/Disk -
1 MemAddr DW 0
1 MarkLn2 scf:ret
1 MarkLn1 call MarkEnd
1 MarkLine call Pack
1 MarkEnd ld hl,(LineAddr):ld a,13
1 MarkBeg ld hl,(LineAddr)
1 Mark=9fajlow
1 MakePass xor a:ld (NumIF),a:ld (NumIFL),a
1 MakeNumber ; hl-
1 MainMenu DB 1,5
1 Main file (M) -
1 Mac edit -
1 Ma |krane otobravaetsq sodervi-
1 MY_ASM (...)
1 MULTIPLY DEFINED SYMBOL
1 MULTIPLE DEFINITION
1 MPRIM2.9 Bl
1 MOVE from AD1 to AD2 to AD3
1 MN1 N2 N3-
1 MMenuAttr DB %00110000
1 MISSING INFORMATION
1 MEPAX TEKCTA
1 MEMORY DISPLAY*********
1 MASK MS1
1 MAKPOC u
1 MAINMENU pop de:call Pack:jp MAIN3
1 MAIN ROUTINE
1 MAGENTA EQU 3
1 MACHINE CODE MONITOR
1 MA EDITOR .OCTA
1 MA BETA-UNIT (CM.H
1 MA BETA-UNIT
1 M.S.,SA.Corp=
1 M- Move block
1 Long label.
1 Long label
1 LoadTxt5 jp EDIT
1 LoadTxt4 ld hl,(OBJ):ld (BlockEnd),hl
1 LoadTxt3 pop hl:add hl,de
1 LoadTxt2 push hl:ld hl,(23784)
1 LoadTxt1 ld de,(RAMTOP):ex de,hl
1 LoadText call CheckSave:jr c,Cat2
1 Load text
1 Line Number:
1 LeadSpaces ld hl,(LineAddr)
1 Labtab Over -
1 Label prin
1 Label not Found
1 Label Exists -
1 Label Already Defined
1 LOAD*******************
1 LNDefFl DB 0
1 LIST ROUTINE***********
1 LINE NUMBER MUST BE 3 BYTES
1 LINE NUMBER BUFFER
1 LEN EQU $-PROG
1 LD A,C
1 LAMNO-INFORMACIONNAQ
1 L- Delete line
1 Ksts3.2 C
1 Kopirowatx9s9
1 Kontrolx9diskow9
1 Konec9_dor=
1 Komanda pozwolqet zadatx
1 Komanda ispolxzuetsq dlq ko-
1 Kharkov, tel. 68-21-96
1 Kharkov 07/1993.
1 Kharkov new
1 KUMENTACIEJ NA PROGRAMMU.
1 KPRIM2.9HB;
1 KOPIROWATX BLOK KODOW.
1 KOPIROWANIE PROGRAMMY W KODAH.
1 KEMPSTON DV
1 KB, HE COB
1 KA TEKCTOBO
1 JumpTx;___________________________
1 JumpLnBuff DS 6
1 JumpEndTxt ld bc,65535
1 JumpBegTxt ld bc,0:jr JumpTxt1
1 Jump to PC
1 Jr nc,DecHL2
1 Johna Stunnera,
1 JR Out of Range
1 JFDFdDdDDDFDFDFDD
1 JA=JA+DD*DP+(DD>ZE)*TR:
1 J- Jump to line ...
1 J#:MYO:NYG
1 Ispolxzuq komandy <
1 Invalid Label
1 Instructions
1 Instruction ; Remarks
1 Inspect -
1 InsTxt3 ex de,hl:ld hl,(TABPTR)
1 InsTxt2 add hl,bc
1 InsText pop de:ld a,4
1 InsLine ld hl,LineBuff:push hl
1 Input10 call Beep
1 InpFlName push de:ld de,#050E
1 InitRegs ld hl,StkTop:ld (PrgSP),hl
1 InitColors
1 Information -
1 Information
1 InfoNxt inc b:ld (PrintXY),bc:ret
1 Illegal ORG
1 Illegal Instruction
1 IY=5C3A 67 D5 32 36 A4 B6 F7 10
1 IX=5679 EF 56 F8 45 78 54 AC D8
1 IWAMOTO (HHAWK
1 IQ9TP+NUWOV
1 INPUT_LINE
1 INPUT_BUFFER
1 INITIALISATION
1 INCLUDE.3EIb$
1 IFUSED toupper
1 IFUSED tolower
1 IFUSED strfcomp
1 IFUSED strcomp
1 IFUSED isxdigit
1 IFUSED isupper
1 IFUSED islower
1 IFUSED isdigit
1 IFUSED isalpha
1 IFUSED isalnum
1 IFUSED cp_hl_de
1 IFUSED cp_de_hl
1 IFUSED atoi
1 IFUSED XLAT_w
1 IFUSED XLAT_b
1 IFUSED UpByte
1 IFUSED Subst
1 IFUSED Subrout3
1 IFUSED Subrout2
1 IFUSED Subrout1
1 IFUSED SetAttr
1 IFUSED ReadKey
1 IFUSED PrtStrHL
1 IFUSED PrtInit
1 IFUSED PrintHL
1 IFUSED PrintFS
1 IFUSED MoveMem
1 IFUSED Interval
1 IFUSED Input
1 IFUSED Inkey
1 IFUSED HexHL
1 IFUSED HexA
1 IFUSED GotoXY
1 IFUSED GetXY
1 IFUSED FuncTail
1 IFUSED FuncHead
1 IFUSED Divide
1 IFUSED DecHL
1 IFUSED ClrScr
1 IFUSED Case
1 IFUSED Beep
1 IFL_Mask DB 0
1 IF,IFDEF,IFNDEF,IFUSED,IFNUSED,
1 Hsts2.6 C
1 Home-Soft,KLAV
1 Hello, hello
1 HeapORG DW HeapBEG
1 HeapEND EQU #EC00
1 HeapBEG EQU #E000
1 HashTable DS 256
1 HSTS 3.2 B
1 HO~O OKHA B
1 HOMEPOB CTPOK .
1 HOLDS CODE
1 HO HA PABHE
1 HL=4567 HL'=F45A I=3B R=57
1 HL,(RNDADR)
1 HL,(ARROWX)
1 HJames Hutchby
1 HELP XAS
1 HBBCBJBCBBBGFABB
1 HAKOMECTA DE
1 HA objecta B
1 GnErrMsg DB " *** Error ! ***",0
1 GetMasks ;
1 GenError ld hl,(OBJ):dec hl:ld (hl),13
1 GWYBOR UPRAWLENIQ
1 GTRASSIROWKA PROGRAMMY.
1 GOSUB from AD1
1 GENS4D51.~
1 G @ A B C D E F G@@@A@B@C@D@E@F@G`@`A`B`C`D`E`F`G
1 Func_Head pop de
1 FuncHead pop de:push hl:push bc
1 FuncHead exx:pop de:exx
1 FreeMem1 pop de:pop hl:ret
1 Free sectors 1923
1 Free sectors
1 Frame_Wind
1 Forward ld (ForwMEM),hl:push bc:ld bc,0
1 Font6,Bold.fnt -
1 FlNameBuff DS 9
1 FileMenu DB 0,10
1 File(s) 15
1 File not found ...
1 File not Found
1 File exists.[Enter-Delete]
1 File exists [Enter-Delete]
1 File 12345678
1 Fatal Error -
1 FastPrt push bc:ld bc,Font6
1 Fajlow>>>>>
1 Fajl99su}estwuet
1 FR)=" "
1 FOUND FILE:
1 FIND from AD1
1 FILL from AD1 to AD2 to BYT
1 FILE TOO BIG
1 FIELD OVERFLOW
1 FBuffSize DW 4096
1 F;"zwuk ";Z$
1 F;" @@@@@ "
1 F;" ##### "
1 F/S/[N1] [N2]-
1 ExtMemFl DB 0
1 EvlLabel ld a,(CondFl):or a
1 Evaluate xor a:ld (OpCode),a
1 Esli zadano
1 Esli wstretilasx komanda wyzowa
1 Errors indica
1 ErrorAttr DB %01010111
1 Error t/s. Retry, Ignore, Abort.
1 Error in IF directive
1 ErrMssgs DB 0
1 ErrMsg2 DB "Label not Found",0
1 ErrMsg1 DB "Syntax Error",SPC,3,0
1 ErrFlNFnd nop
1 ErrAlrDef nop
1 Erase file -
1 Erase file
1 Environment).
1 Enter address:
1 Editor info
1 Edit (E) -
1 EdKeysTable
1 EdInfAttr DB %00111000
1 EXTEND CS+X
1 EXTEND CS+SPACE -
1 EXTEND CS+B -
1 EX
1 ET "TOKEH"
1 ERROR 0 LINE 0000
1 EQU LineBuff
1 EQU #FF00-#1CD-$
1 EPOM BCEX CTPOK
1 EPEHOC TEKCTA CO CTPOK
1 EPA PRIMUS :
1 ENTER COMMAND =>
1 EM R10 10 .
1 ELSE,ENDIF.
1 EDUSMOTRENA GIBKAQ SISTEMA
1 EDIT from AD1.
1 EAR equ 6: in a,(#FE): bit EAR,a.
1 E- Mark block end
1 E XAS half-demo :) '
1 E LOADTEXT, EC
1 E B 2 PA3A }
1 Duplicate label.
1 Duplicate label
1 Duplicate ORG/ENT
1 Duplicate ORG.
1 DstMemMsg DB 22,5,20,"Memory",0
1 DstDskMsg DB 22,5,20,"
1 Dopustim, my zadali ^islo 255
1 Dlq izmeneniq reistra RS ispolx-
1 Dlina9999fajla>>
1 Djnz OutHL6
1 Djnz Input2
1 Djnz DecHL1
1 Divide ;HL=HL/DE, DE=HL mod DE
1 DiskFull ld hl,DFullMsg:jr ErrL1
1 Disk-Doctor
1 Disk error.-
1 Disk error
1 Disk Full !
1 Dialog box
1 DialgAttr DB %00110001
1 Dfusea6 C8
1 DeleteLine ld hl,(LineAddr)
1 Delete line
1 DelTabFl DB 0
1 DelLine call Pack:call DeleteLine:scf:ret
1 Del.File(s) 0
1 Del.File(s)
1 DecCodeBuff
1 Debugger ld hl,(MonitFl)
1 Debugger -
1 DdDdDDFDdDDdDFDFDDdDDdD
1 DW PGDN,PGUP,CAPSLOCK,RUSLAT
1 DW MarkLine,DelLine
1 DW LEFT,RIGHT,DOWN,UP,BACKSP
1 DW INSERT,ENDLN,TAB,MAINMENU
1 DW ENTER,COMMAND,DELETE,HOME
1 DW CompORG,CompEQU
1 DW CompINSRT,CompINCLD
1 DW CompIFNUSED,CompELSE
1 DW CompIFNDEF,CompIFUSED
1 DW CompIF,CompIFDEF
1 DW CompENDIF
1 DW %1111110000000000
1 DW %0000111111000000
1 DW %0000001111110000
1 DW %0000000000111111
1 DUMP ROUTINE***********
1 DSTS 2.6HBD
1 DSTS 2.6 B
1 DS IFStkSz
1 DOWATORCEW 27-94, KOWALEWU MI-
1 DL=D-DH*256
1 DL=(D-16384
1 DJNZ PrtA1
1 DJNZ PrLn1
1 DJNZ Pack1
1 DJNZ M_Crsr1
1 DJNZ FPrt1
1 DJNZ FPrt0
1 DIVISION BY ZERO
1 DFullMsg DB SPC,3,"Disk Full !",0
1 DEST EQU #C000
1 DESQTI~NOE ^islo wwoditsq kak
1 DE=F5A3 DE'=0000 IM 2 DI
1 DE -> String end;
1 DE -> String
1 DD=(JL>J)-(JL>J)
1 DB VAL,END_CALC
1 DB SPC,8,0:pop bc
1 DB SPC,5,"Replace ?",SPC,3
1 DB SPC,3,"Setup",SPC,4,0
1 DB SPC,3,"File",SPC,3,"Edit"
1 DB SPC,3,"Compile",SPC,3,"Run"
1 DB 9:DW Menu_Dn
1 DB 9,2,8,"e":DW EraseFile
1 DB 9,16,4,"n":DW SaveNo
1 DB 9,12,10,0:DW SColor2
1 DB 9,10,5,"y":DW SaveYes
1 DB 8:DW Menu_Up
1 DB 8,2,8,"o":DW SaveOBJ
1 DB 8,17,8,"d":DW Debugger
1 DB 8,12,10,0:DW SColor2
1 DB 7,21,9,"u":DW SaveSetUp
1 DB 7,2,8,"m":DW Merge
1 DB 7,17,8,"p":DW Processor
1 DB 7,12,10,0:DW SColor2
1 DB 6,24,4,0:DW Sound1
1 DB 6,21,9,"l":DW LoadFont
1 DB 6,20,4,0:DW Sound1
1 DB 6,2,8,"b":DW SaveBlock
1 DB 6,17,8,"b":DW BreakPnt
1 DB 5:DW CompOUT
1 DB 5,21,9,"c":DW SetColors
1 DB 5,2,8,"n":DW New
1 DB 5,17,8,"m":DW Modify
1 DB 4,21,9,"s":DW SetSound
1 DB 4,2,8,"c":DW Catalogue
1 DB 4,17,8,"i":DW Inspect
1 DB 4,11,9,"d":DW Dest
1 DB 3:DW CompDEC
1 DB 32:DW MenuEsc
1 DB 3,21,9,"p":DW SetPool
1 DB 3,2,8,"l":DW LoadText
1 DB 3,17,8,"c":DW CallPrg
1 DB 3,11,9,"i":DW Info
1 DB 3,0,9,1,#4A,3,#42
1 DB 2:DW CompINC
1 DB 226,"~",195,"|",205,"\"
1 DB 22,9,9,"M- Move block"
1 DB 22,9,3,"Erase file"
1 DB 22,9,17, "Block attr"
1 DB 22,9,15,"YES",SPC,5,"NO",0
1 DB 22,9,15,"Enter value:",0
1 DB 22,8,9,"D- Delete block"
1 DB 22,8,3,"save OBJ"
1 DB 22,8,23,"Debugger",0
1 DB 22,8,17, "Text attr"
1 DB 22,8,16,"Value: ",0
1 DB 22,8,15,"BreakPoint "
1 DB 22,8,13,"File not"
1 DB 22,7,9,"Written by Hohlov "
1 DB 22,7,9,"C- Copy block"
1 DB 22,7,8,"Pass 1",SPC,5
1 DB 22,7,3,"Merge"
1 DB 22,7,29,"save setUp",0
1 DB 22,7,23,"Processor"
1 DB 22,7,17, "Border"
1 DB 22,7,10,"Program not saved."
1 DB 22,6,9,"E- Mark block end"
1 DB 22,6,3,"save Block"
1 DB 22,6,29,"Load font"
1 DB 22,6,28,"ON",SPC,3,"OFF",0
1 DB 22,6,23,"BreakPoint"
1 DB 22,6,14,
1 DB 22,5,9,SPC,15,22,5,9,0
1 DB 22,5,9,"B- Mark block begin"
1 DB 22,5,3,"New"
1 DB 22,5,29,"Colors"
1 DB 22,5,24,"Pool Size: ",0
1 DB 22,5,23,"Modify"
1 DB 22,5,11,"ZX Turbo Assembler"
1 DB 22,4,9,"Q- Quit to main menu"
1 DB 22,4,3,"Catalogue"
1 DB 22,4,29,"Sound"
1 DB 22,4,24,"RAM Top: ",0
1 DB 22,4,23,"Inspect"
1 DB 22,4,15,"Destination",0
1 DB 22,4,13,"Search:",22,5,9,0
1 DB 22,4,11,"Replace with:"
1 DB 22,3,3,"Load"
1 DB 22,3,29,"Pool size"
1 DB 22,3,23,"Call ..."
1 DB 22,3,15,"Information"
1 DB 22,23,0,16,%01110000
1 DB 22,2,3,"Save"
1 DB 22,2,29,"RAM top"
1 DB 22,2,23,2,24,3
1 DB 22,2,23,"Run"
1 DB 22,2,15,"Assemble"
1 DB 22,17,9,"0..9 - Put decimal code",0
1 DB 22,16,9,"J- Jump to line ..."
1 DB 22,16,18,"New Attr:",0
1 DB 22,15,9,25,"- Jump to end"
1 DB 22,15,10,"Free:",0
1 DB 22,14,9,24,"- Jump to begin"
1 DB 22,14,17,"Error box",0
1 DB 22,14,10,"Table Size :"
1 DB 22,13,9,"L- Delete line"
1 DB 22,13,17,"Dialog box"
1 DB 22,13,10,"Code Length:"
1 DB 22,12,9,"R- Replace"
1 DB 22,12,17,"Menu box"
1 DB 22,12,15,"Byte
1 DB 22,12,10,"Program ORG:"
1 DB 22,11,9,"S- Search"
1 DB 22,11,6,SPC,30,0
1 DB 22,11,3,"Quit",0
1 DB 22,11,17,"Editor info"
1 DB 22,11,15,"String: ",0
1 DB 22,11,10,"OBJ Buffer :"
1 DB 22,10,9,"N- Reset block"
1 DB 22,10,3,"call Dos"
1 DB 22,10,17,"Main menu"
1 DB 22,10,10,"Text Length:"
1 DB 22,1,2,"Line Number:",0
1 DB 22,1,2," Command:",SPC,9,0
1 DB 204,"{",203,"}",198,"["
1 DB 201,17,200,18
1 DB 20+%0110,#FF,AnyLabel,"Hello!",0
1 DB 2,21,9,"r":DW SetRamTop
1 DB 2,2,8,"s":DW SaveText
1 DB 2,17,8,"r":DW RunPrg
1 DB 2,11,9,"a":DW Assemble
1 DB 1:DW CompPOP
1 DB 197,"]",172,"
1 DB 18,3,19,0,20,1,21,2
1 DB 16,%01010111," Memory ",0
1 DB 14,12,10,0:DW SColor2
1 DB 13;___________________________
1 DB 13:DW MenuEnt
1 DB 13,13,0
1 DB 13,12,10,0:DW SColor2
1 DB 12,12,10,0:DW SColor2
1 DB 11:DW Menu_Up
1 DB 11:DW JumpBegTxt
1 DB 11,2,8,"q":DW Quit
1 DB 11,12,10,0:DW SColor2
1 DB 10:DW Menu_Dn
1 DB 10:DW JumpEndTxt
1 DB 10,2,8,"d":DW CallDos
1 DB 10,12,10,0:DW SColor2
1 DB 0:DW CompPUSH
1 DB 0,6,6,"e":DW EDIT
1 DB 0,24,6,"s":DW SETUP
1 DB 0,19,5,"r":DW RUN
1 DB 0,12,7,"c":DW COMPILE
1 DB 0,1,5,"f":DW FILES
1 DB 0,#76,#F3,#FB,7,#17,#F
1 DB %11110010
1 DB %11101111
1 DB %10000110
1 DB %01000010
1 DB %01000000
1 DB %00101000
1 DB %00001000
1 DB %00000100
1 DB #EB,#A7
1 DB #E1,#E2,#E3,#A6,#A2,#EC
1 DB #AC,#AD,#AE,#AF,#EF,#E0
1 DB #AB,#BB,#4D,#45,#6F,#67
1 DB #A9,#B9,#44,#70
1 DB #A3,#E5,#A8,#A9,#AA,#AB
1 DB #A2,#B2,#AA,#BA,#A3,#B3
1 DB #A0,#B0,#A8,#B8,#A1,#B1
1 DB #A0,#A1,#E6,#A4,#A5,#E4
1 DB #9B,#87,"[\]^_`"
1 DB #91,#92,#93,#86,#82,#9C
1 DB #8C,#8D,#8E,#8F,#9F,#90
1 DB #83,#95,#88,#89,#8A,#8B
1 DB #80,#81,#96,#84,#85,#94
1 DB #46,#56,#5E
1 DB #1F,#D9,#27,#2F,#3F,#37
1 DB "~",#97,"|",#9D,"\",#9A
1 DB "{",#98,"}",#99,"`",#9E
1 DB "xl",0,"yh",0,"yl",0
1 DB "sp",0,"di",0,"ei",0
1 DB "sp",0,"(sp)",0,"af'",0
1 DB "sli",0,"srl",0,"bit",0
1 DB "scf",0
1 DB "sbc",0,"and",0,"xor",0
1 DB "rst",0,"ret",0
1 DB "rrd",0
1 DB "rrca",0,"rra",0,"exx",0
1 DB "rr",0,"sla",0,"sra",0
1 DB "rlc",0,"rrc",0,"rl",0
1 DB "reti",0,"retn",0,"rld",0
1 DB "res",0,"set",0
1 DB "push",0,"pop",0,"inc",0
1 DB "po",0,"pe",0
1 DB "p",0, "m",0
1 DB "otir",0,"outd",0,"otdr",0
1 DB "org",0,"equ",0,"db",0
1 DB "or",0,"cp",0
1 DB "nop",0,"halt",0,"di",0
1 DB "nc",0,"c",0
1 DB "ldi",0,"ldir",0,"ldd",0
1 DB "lddr",0,"cpi",0,"cpir",0
1 DB "ld",0,"ex",0,"im",0
1 DB "l",0,"h",0,"e",0,"d",0
1 DB "jr",0,"djnz",0
1 DB "jp",0,"call",0
1 DB "insert",0,"include",0
1 DB "inf",0,"ini",0,"inir",0
1 DB "ind",0,"indr",0,"outi",0
1 DB "ifused",0,"ifnused",0
1 DB "if",0,"ifdef",0,"ifndef",0
1 DB "hl",0,"ix",0,"iy",0
1 DB "hl",0,"de",0,"bc",0
1 DB "else",0,"endif",0
1 DB "ei",0,"rlca",0,"rla",0
1 DB "e",0,"h",0,"l",0
1 DB "dw",0,"ds",0,"defb",0
1 DB "defw",0,"defs",0
1 DB "dec",0,"in",0,"out",0
1 DB "daa",0,"cpl",0,"ccf",0
1 DB "cpd",0,"cpdr",0,"neg",0
1 DB "c",0,"b",0,"f",0,"a",0
1 DB "b",0,"c",0,"d",0
1 DB "af",0,"ix",0,"iy",0
1 DB "af",0,"bc",0,"de",0
1 DB "add",0,"adc",0,"sub",0
1 DB "Source",22,9,15,"Line",0
1 DB "S":DW Search
1 DB "R":DW Replace
1 DB "Q":DW QuitMainMenu
1 DB "Press any key",22,11,12,0
1 DB "Oleg",22,8,9
1 DB "Object File Name: ",0
1 DB "Not Found",0:jp C_Help1
1 DB "N":DW ResetBlock
1 DB "M":DW MoveBlock
1 DB "Label Already Defined",0
1 DB "L":DW DeleteLine
1 DB "Kharkov, tel. 68-21-96"
1 DB "JR Out of Range",0
1 DB "J":DW JumpLine
1 DB "Invalid Label",0
1 DB "Illegal ORG",0
1 DB "Illegal Instruction",0
1 DB "File not Found",0
1 DB "Error in IF directive",0
1 DB "Enter new value:",22,8,26,0
1 DB "Enter new value:",22,7,26,0
1 DB "Enter file name:",0
1 DB "Enter Address:",22,8,17,0
1 DB "Enter Address:",22,7,18,0
1 DB "E":DW MarkEnd
1 DB "D":DW DelBlock
1 DB "C":DW CopyBlock
1 DB "Break Key Pressed...",0
1 DB "B":DW MarkBeg
1 DB "Address:",22,9,17,0
1 DB "(ix",0,"(iy",0,"(bc)",0
1 DB "(hl)",0,"a",0,"xh",0
1 DB "(de)",0,"i",0,"r",0
1 DB "(c)",0
1 DB "(Yes/All/No/Quit)"
1 DB " found ...",0
1 DB " Save?"
1 DB " File(s). Deleted: ",0
1 D- Delete block
1 D(C$(J,ON,TW
1 D(C$(J,ON,ON
1 D(C$(J,K,TW
1 D(C$(J,K,ON
1 D$="0123456789ABCDEF"
1 D$(H+ON);D$(L+ON);" ";
1 CurFlag DB 0
1 CurChrAddr push af:ld hl,LineBuff
1 CurAddr DW 0
1 Copyright (C) 1993 by Rst7.
1 Copyright
1 CopyBlock ld hl,(LineAddr):call SetLnAttr
1 Cont. or Break ?
1 Conds DB "nz",0,"z",0
1 CompRET1 add a,#C0
1 CompPut2 xor a:ld (WasLabel),a
1 CompPut1 call PutByte
1 CompPUSH ld d,#C5
1 CompOUT1 call Comma:call Regs
1 CompMenu DB 0,3
1 CompLnNum call OutFS:DB 22,9,20,0
1 CompLine ld (CurLnNum),de
1 CompLbl3 call Ident:ex de,hl:jr Comp1
1 CompLD85 call Value:pop bc
1 CompLD84 ld (RMode),a:ld a,c
1 CompLD83 ld a,(RMode):ld b,a
1 CompLD82 ld a,(hl):cp "("
1 CompLD81 cp 16:jr nc,CompLD1
1 CompLD162 inc hl:push bc:call Value
1 CompLD161 push bc:call Value:pop bc
1 CompLD16 call Comma:ld a,(hl)
1 CompINSRT call CompII
1 CompINCLD call CompII:push hl
1 CompINCL4 ld bc,130:call FreeMem
1 CompINC1 push hl:call Reg8:pop hl
1 CompINA1 ld a,e:call PutByte
1 CompII1 call FR_open:call c,ErrFlNFnd
1 CompIFUSED
1 CompIFNUSED ld bc,#0100:jr CompIFL
1 CompIFNDEF
1 CompENDIF ld a,(NumIF):or a:call z,ErrIF
1 CompDJNZ ld b,#10:jr CompJR1
1 CompDE;___________________________
1 CompCALL ld de,#CDC4:jr CompJP3
1 CompAR81 push bc:call Value:pop bc
1 CompAR163 call Reg16:call nc,ErrSynt
1 CompAR162 ld a,d:or a:jr z,CompAR163
1 CompAR161 cp 23:call nz,ErrInstr
1 CompAR16 ld d,c:call Regs
1 Code Length:
1 Code Busters Group
1 ClrMssg call OutFS
1 ClrDosErr push af:xor a:ld (23801),a
1 Clear_Wind
1 ClearCursor
1 Chk_Sum ld hl,(OBJ):ld de,(TEXT)
1 ChkSvMenu DB 0,2
1 Check_SS push bc:ld c,a
1 Check_CS push bc:ld c,a
1 CheckSave push hl:push de:push bc
1 CheckPrg ld hl,(OBJ):ld de,(SPACE)
1 ChckPrg1 pop de:jp RUN
1 Cfusea5 B7
1 Cfusea4 B:
1 Catalogue -
1 CapsLock ld a,(KeyModes):xor 1
1 Cannot nest includes.-
1 Cannot nest includes
1 CallPrg1 call OutFS:DB 22,5,21
1 CallDos call 15616:jp START1
1 Call... -
1 CTPOKA TEKCTA ACCEM
1 CTKA CTPOK
1 CTEM ZEUS
1 CTAHOBKA TO
1 CTAHOBKA TEKCTA
1 CTAHOBKA A
1 CS/1 (EDIT)
1 CS+5,6,7,8
1 CS+4 BCTABKA
1 CREATE L1
1 CRACK.C
1 COOTBETCTB
1 COMPILE2 call OutHL
1 COMPILE1 call OutFS
1 COMMANDS***************
1 COMMAND call _EdInfo:call OutFS
1 CN1 N2 N3 - KO
1 CMND_Help call OutFS:DB "Help",0
1 CKE PRIMUS'
1 CF=1 - Error
1 CAPSLOCK call CapsLock:jr RUSLAT1
1 CAPSLOCK EQU 6
1 CAPS SHIFT + 8
1 CAPS SHIFT + 7
1 CAPS SHIFT + 6
1 CAPS SHIFT + 5
1 C.S.+SPACE - Tab -
1 C.S.+S.S. - Command.
1 C.S.+Enter - MarkLine -
1 C.S.+9 - Delete -
1 C.S.+6,+7 (
1 C.S.+5,+6,+7,+8 -
1 C.S.+4 - Page_Up
1 C.S.+3 - Page_Down -
1 C.S.+2 - Caps / Lock.
1 C.S.+1 - Rus / Lat,
1 C.S.+0 - Back_Space -
1 C- Copy block
1 C$(N,ON)=" "
1 C$(J,TW,ON
1 C$(J,TW, ON
1 C$(J,ON);" ";C$(J,TW);" ";C$(J,TR);" ";C$(J,TR)
1 C$(J,ON)+" "+C$(J,TW)+C$(J,TR):
1 C$(J,K)=A$(I
1 C$(IN,FR,TW):
1 C$(I,J)=" "
1 C$(CL,TW,ON
1 C$(CL,ON)=" "
1 BreakSave DS 3
1 BreakRet call StoreRegs
1 BreakPoint}X
1 BreakPoint Address:
1 BreakPoint -
1 BreakPoint
1 BreakPnt ld a,(DialgAttr):ld hl,#070A
1 BreakBuff DS 20
1 BreakAddr DW 0
1 Break Key Pressed...
1 BlockExist ld hl,(BlockBeg)
1 BlockAttr DB %01001111
1 Block attr
1 BigValue*3+2,b
1 Beep1 pop ix:pop af:pop bc
1 BUDET DLQ wAS PRIWY^NOJ.
1 BRANCH OUT OF RANGE
1 BETA UNIT
1 BCDEHLAF'NZNCPOPEPMSPRIXXHXLIYYHYL'PCSPIXIYBCDEHLAFIR
1 BC=0002 BC'=0000 C=0 N=0 P/O=0
1 BC-YX position
1 BC,(XARROW)
1 BC,(ARROWX)
1 BAM" ZEUS ASSEMBLER'
1 BAD OPCODE
1 BAD EXPRESSION
1 BAD ADDRESSING MODE
1 BACKSP2 jp LEFT
1 BACKSP1 dec de:ld bc,LineBuff+129
1 B- Mark block begin
1 Auto_Start ld a,(Mem_B)
1 Auto_Indent (
1 Assemble ld hl,(OBJ):ld (SPACE),hl
1 Assemble -
1 Assemble (A) -
1 Analogi^no komande <N>
1 Afusea3 C8
1 Adresa komand peres^itywa`tsq
1 Adres9zagruzki>>
1 ASSEMBLY ABORTED
1 ASCII from AD1
1 AMETHO, TAK KAK PACK
1 AKTOPA .BTOPA
1 AKTOP. SPACE -
1 AKTOP PRIMUS .
1 AF=0600 AF'=FF00 H=0 Z=0 S=0
1 AET: - ('-?)
1 AB GRAPH SS/I,
1 A,(STATEJ)
1 A,(SOUNDF)
1 A,(COUNTJ)
1 A,(BORDER)
1 A,(ARROWY)
1 A,(ARROWX)
1 A$=A$(K+ON
1 A$="50000"
1 A$(ON)>"9"
1 A XLAT_w - B HL.
1 A UP/DOWN.
1 A B 23773.
1 @fusea2 C
1 @fusea1 C
1 @BBBBBBBBBBBBBBB
1 @BBASDBASDBHSDBB
1 ?~~~~w~?~~~?~~~~~?~~~~~~~~~~~~~~?~~~
1 ?wo}ww?ww~~???o{ww{
1 ?c C
1 ?FUSEA B
1 ? OCTATOK OT
1 >window ^CA
1 >CRACER-4B
1 =*]\##"]\>o2
1 =((O$)=((O$="CA")+(O$="DA")+(O$="EA")+(O$="FA")+(O$="C2")+(O$="D2")+(O$="E2")+(O$="F2")+(O$="C3"))-((O$="38")+(O$="30")+(O$="28")+(O$="20")+(O$="18")+(O$="10"))
1 <russk w^C
1 ;to the end of string hl
1 ;print A at (H,L) with Attr
1 ;out:HL - Result
1 ;l LD A,(HL).
1 ;ix+4 -> First parameter in stack
1 ;e EX AF,AF'.
1 ;` (IX+0)_
1 ;__________ END ___________
1 ;_______ Project File ________
1 ;U OUT (#FE),A.
1 ;T RST_16.
1 ;Prefix,Offset.
1 ;Not found
1 ;In:BC = YX;
1 ;In: hl = - Auto_Data_Size
1 ;In: IX-Image Address
1 ;In: BC = YX - First point
1 ;HL-screen addr
1 ;HL,DE,C,A,_ChainEnd
1 ;Get arguments
1 ;DE-char image
1 ;DE,_LblAddr
1 ;Concatanation string de
1 ;BC=OffSet
1 ;BC - old SPACE
1 ;A@CBD$#!"
1 ;= LD (HL),A.
1 ;-- SEARCH --
1 ;* SetAttr,ClrScr,Inkey,ReadKey, *
1 ;* PrintHL,PrintFS,PrtInit,
1 ;* GotoXY,GetXY,HexA,HexHL,
1 ;* DecHL,Beep
1 ;"wkl`~en prawilxno (star{ie tri";
1 ;"tablica"
1 ;"stroka- ";N;
1 ;"stroka - ";
1 ;"programma samonastraiwaetsq na";
1 ;"pereme}."
1 ;"kod sdelan na osnowe programmy 'GAMES: ' M.rusalowa. a wot za}i}atx swo` programmu,peredraw";#1
1 ;"klawi{i"
1 ;"izmenitx li razme}enie bloka kodow ? ( Y / N )":
1 ;"izmenitx li razme}enie 2-go |krana ? ( Y / N )":
1 ;"ee iz ARTSTUDIO u J.HUTCHBY ,ne stoilo by ! rostow'93 NVE":
1 ;"cwet okna- ";
1 ;"cwet aktiwnoj stroki- ";
1 ;"bita porta IN 31 sbro{eny). ";
1 ;"S - save lst"
1 ;"Q - quit"
1 ;"Name: ";n$
1 ;"L - load lst"
1 ;"KEMPSTON-dvojstik , esli on ";
1 ;"KEMPSTON"
1 ;"Error: file ";n$;" not found"
1 ;"Error: file ";n$;" exists"
1 ;"Editor/Assembler Fusea
1 ;"D - DOS"
1 ;"C - catalogue"
1 ;"B - Basic"
1 ;"Are you sure? (y/n)"
1 ;"A - Assembler"
1 ;"*** HELP FOR ZEUS DECOMPILER *** WRITTEN BY MONSTERS PRODUCTIONS THANKS FOR MUSIC TO SMASH SOFT"
1 ;" zapolnite tablicu razre{ennyh kaktiwacii strok . 0-q stroka sootwetstwuet werhu
1 ;" normalxno ? ( Y / N ) ":
1 ;" klawi{i-QAOP
1 ;" bajt = ";D;" ?!?!":
1 ;" ";N;" ":
1 ;" vdite konca preobrazowaniq "
1 ;" stroka N 13 ":
1 ;" normalxno ? ( Y / N ) ":
1 ;" WINDOW "
1 ;" stroka- 22";
1 ;" ":
1 ;" ";
1 ;" "
1 ;" "'" wne okna ! "'" ":
1 ;" ";
1 ;" blok kodow izmenen i gotow k pereme}eni` w nowyj adres . ne pytajtesx zapustitx ego sej~as - ni~ego ne wyjdet . informaciq dlq SAVE : na~alo - 43073 dlina (s tablicej) - 854 nowyj adres na~ala - ";U;
1 ;" "
1 ;"
1 ; samaq nivnqq nedostupna. w l`bom slu~ae wwodqtsq wse 23stroki,dostupnye koncu strely. "
1 ; bank: 1 - xas
1 ; ZX Turbo Assembler
1 ; TARGET TOO FAR - JR
1 ; SYNTAX IN NUMBER - (O{
1 ; SYNTAX -
1 ; SS/S O
1 ; SS/Q/A CTPAH
1 ; SS/I KO
1 ; SS/G HA
1 ; SS/ENT BOCCTAHOBT
1 ; SKIPPING -
1 ; RUN - 3A
1 ; PutImage. Sprite Format:
1 ; ORG. T.E. EC
1 ; NUMBER TOO BIG
1 ; NO LABEL "---"
1 ; LOAD - EC
1 ; LABEL TABLE OVER - KOH
1 ; LABEL EXISTS - TAKA
1 ; INCLUDE HA3
1 ; INCBIN - LOADCODE
1 ; GRAPH+ENTER
1 ; FATAL ERROR = SYNTAX
1 ; EXT KOMMAH
1 ; DB X_Size, Y_Size
1 ; DB ..,..,.. ;Bit Chane
1 ; CS/SP Del.
1 ; CS/9 MAKPOC
1 ; CS/4 HOME/END.
1 ; CS/3 OVR/INS.
1 ; CS/2 TA}
1 ; CS/1 P
1 ; 3ATEM SS/I.
1 ; ------------------------
1 ; #DD,#FD.
1 ; aUtoexec -
1 ; aNother, Mac edit, Quit, Find, Run,
1 ; Edit, Save, Load, remarK, Assemble
1 ; (CS - CTO
1 ; O{
1 ; TO BCTAB
1 ; 7 - sts
1 ; 6 - mac (#C000...=#CB00)
1 ; 4 - text 2 & include
1 ; 3 - text 1
1 ; }
1 ; block op-s (=#CB00...#FFFF)
1 ; PA
1 ; labels (=#CB00...#FFFF)
1 ; /BH
1 ; Help Page
1 ; PE
1 ;
1 :fFFdDFdDDDT
1 :HL- (Y,X)
1 : ld a,xh : xor yl
1 : EXTEND CS+5 -
1 : EXTEND CS+1 -
1 : EXTEND 1 - K
1 : D <= A < E
1 : A,B,List
1 : 6, 128 + <
1 : 1>2, 2>1, 3>1;
1 : +,-,*,/
1 : *filename.
1 : (0572) 45-25-69p
1 : (0572) 45-25-69
1 : "B"!#80; 1520!label1!#f001).
1 : space -
1 : LABEL1 LD A,B
1 :
1 9zapisatx99katalog
1 9stertyh>>>
1 9prerwatx9operaci
1 9ignorirowatx9fajl
1 9Konec9programmy9
1 9@=Kowalewskij
1 999swobodnoj9zone
1 8WINDOW B
1 8I@Editor/Assembler
1 888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 6]-RIGHT@V
1 62881,2655
1 6030 FF FF FF FF FF FF FF FF
1 6028 FF FF FF FF FF FF FF FF
1 6020 00 00 00 00 00 00 00 00
1 6018 00 00 00 00 00 00 00 00
1 6010 00 00 00 00 00 00 00 00
1 6008 00 00 00 00 00 00 00 00
1 6000 78 23 00 00 00 00 00 00
1 6-PageUp 7
1 528 bajt.
1 4WINDCHARC2
1 4,7,6,8,7,8
1 3OBAH T.K. HE
1 33364........ TEKCTOB
1 2zl#"ub"wb
1 2]-Caps Lock,
1 256128 48:
1 25000...33363 PRIMUS ASSEMBLER
1 23635+256*
1 23465-23471
1 23440-23471.
1 2. EXTEND CS+
1 1]-On/Off,[S
1 1WINDOWS C2
1 15EC 23 INC HL
1 10 {agow wpered.
1 10 {agow nazad.
1 1.BYTE BYT1
1 1 copy 3 copy to 5 copy from 7 kill block 2 move 4 move to 6 move from 8 kill pocket
1 1 Load file 3 Merge file 5 Cat 7 Exit dos 2 Save file 4 Save block 6 Exit to basic
1 1 {ag wpered.
1 1 {ag nazad.
1 0prprprprprprpr r
1 0]-DELETE H
1 0=
1 0<=ST1<=ST2<=23
1 0173.021 (39%) .5. INS C.LOCK INSERT
1 0173.021 (39%)
1 0123456789ABCDEFr
1 0123456789ABCDEF
1 0..9 - Put decimal code
1 /WINDOWS B
1 /TEKCT/ -
1 /Symbol Shift
1 ..........................................
1 .........................................
1 ..............
1 .............
1 ...........
1 ........ (...)
1 ..,a2.4_4 -
1 . cs/ent),
1 . cs/ent)
1 . WARNING:
1 -monitor C0u
1 -WYHOD iz revima.
1 -SINCLAIR
1 -E.Z.D. B
1 -DVKMONITB
1 -CPTOKA ,BK
1 -----------------------------------------
1 - k nim pribawlqetsq SME]ENIE
1 - Jump to end
1 - Jump to begin
1 ,raspoloven-nu` sej~as w ( 43898-43926 ). "
1 ,[ENTER] (
1 ,Tornado, ISY, (R)
1 ,PutImageC0
1 ,Arrow C0
1 ,23:RANDOMIZE USRU
1 , bit 3+15,a),
1 , Max Iwamoto(
1 , EDIT-OTMEHA.
1 , ADM(Mon7.08),
1 , 310178,
1 , edit -
1 +N));" ";
1 +,-,*,/,|,&.
1 ++++++++++
1 *{iw#"{i*}i+"}i|
1 *^[&%>}/,-]'$<{?.+
1 )keyboardC
1 )=(S$>"9")*(
1 ). !ASSM !ON
1 ). Space -
1 )-(S$>"@")*32
1 ), usr 23465,
1 )
1 (out 253,81).
1 (library C
1 (Yes/All/No/Quit)
1 (XARROW),HL
1 (SIZEW),DE
1 (SIZEW),BC
1 (RNDADR),HL
1 (JA/QK)*QK:
1 (Enter,Down,Break...)
1 (COUNTJ),A
1 (C) Written by Trunov Pavel 1994
1 (C) Dima Stalker'9
1 (C$(J,TW,TW
1 (Beta ver"Y/
1 (ARROWX),BC
1 (AD3-AD1)+(ad2-ad1),
1 (AD3-AD1)
1 (AD2-AD1).
1 (9,17,25,...),
1 (0572)110564
1 (0572) 68-21-96,
1 (!=(*=(.=(8
1 'std.io C
1 'True Vid.'
1 'LABEL',#ac,#d2,'#4D00-" a";
1 'Inv. Vid.'
1 'Graphics'
1 'FP_CALC C
1 'Caps Losk'
1 'CONVER-Utility' & Y.Kovalevsky
1 '95 DISTRIBUTER IN RUSSIA 'INFORCOM'"
1 &graph C
1 &chr&str C0
1 %std.lib C1
1 #FE,#FE,#FE
1 #FE,#F7,#FE
1 #FE,#BF,#FE
1 #FC,#FE,#FF
1 #FB,#FE,#FD
1 #F0,#07,#F9
1 #EF,#FE,#DF
1 #E0,#F0,#F8
1 #E0,"U",#E0
1 #E0,"R",#E0
1 #E0,"N",#E0
1 #E0,"K",#E0
1 #E0,"H",#E0
1 #E0,"G",#00
1 #E0,"D",#E0
1 #E0,"A",#E0
1 #C0,"W",#E0
1 #C0,"T",#C0
1 #C0,"Q",#C0
1 #C0,"M",#C0
1 #C0,"J",#C0
1 #C0,"F",#C0
1 #C0,"C",#C0
1 #C0,"@",#C0
1 #A0,"V",#A0
1 #A0,"S",#A0
1 #A0,"P",#A0
1 #A0,"O",#C0
1 #A0,"L",#A0
1 #A0,"I",#A0
1 #A0,"E",#A0
1 #A0,"B",#A0
1 #A0,"@",#A0
1 #8D,"P"," " ;COMPRESED FONT 6*7
1 #81,#FF,#E0
1 #80,"U",#80
1 #80,"R",#80
1 #80,"N",#80
1 #80,"K",#80
1 #80,"H",#80
1 #80,"G",#A0
1 #80,"D",#80
1 #80,"A",#80
1 #8+X+`#hr8hHk
1 #7FFD=32765IB#
1 #1C,#00,#00
1 #1C,"<","|"
1 #1C,"6",#00
1 #1C,",","L"
1 #1C,""","I"
1 #1A,"|",#18
1 #1A,"8",")"
1 #18,#18,#00
1 #18,#18,"$"
1 #18,#00,#18
1 #18,"~",#18
1 #18,"H","0"
1 #18,":","l"
1 #16=22 - Set PrintXY ;
1 #11," ",#A0
1 #10=16 - Set Attributes ;
1 #10,#08,#04
1 #10,#08,"H"
1 #10," "," "
1 #0F,#80,#06
1 #0C,#0C,#00
1 #0C,#0C,"L"
1 #0C,#08,#18
1 #0C,"x",#00
1 #0C,"L","8"
1 #0C,"<","L"
1 #0C,"8","`"
1 #08,#10," "
1 #08,#08,#06
1 #08,#07,#03
1 #08,#06,#05
1 #08,#05,#06
1 #08,"8","H"
1 #07,#06,#05
1 #07,#06,#04
1 #07,#05,#06
1 #06,#08,#06
1 #06,#07,#08
1 #06,#07,#06
1 #06,#06,#08
1 #06,#06,#07
1 #06,#06,#05
1 #06,#05,#08
1 #06,#05,#07
1 #06,#05,#04
1 #05,#07,#05
1 #05,#06,#07
1 #05,#05,#07
1 #04,#08,#07
1 #04,#06,#04
1 #04,#05,#05
1 #04,#00,"8"
1 #03,#06,#0C
1 #02,#04,#08
1 #00,#80,#C0
1 #00,#1F,#00
1 #00,#1C,#0C
1 #00,#18,#18
1 #00,#18,#00
1 #00,#18,"<"
1 #00,#18,","
1 #00,#10,"8"
1 #00,#10,"0"
1 #00,#08,#08
1 #00,#08,#00
1 #00,#06,#00
1 #00,#00,"~"
1 #00,#00,"l"
1 #00,#00,"d"
1 #00,#00,"P"
1 #00,#00,"L"
1 #00,#00,"B"
1 #00,#00,"@"
1 #00,#00,"?"
1 #00,"|",#10
1 #00,"|","`"
1 #00,"x",#10
1 #00,"x","H"
1 #00,"p","@"
1 #00,"p","0"
1 #00,"p"," "
1 #00,"c","w"
1 #00,"`","`"
1 #00,"`","@"
1 #00,"`","0"
1 #00,"X","d"
1 #00,"W"," "
1 #00,"T",#00
1 #00,"Q",#00
1 #00,"M",#00
1 #00,"J",#00
1 #00,"H","P"
1 #00,"F",#00
1 #00,"D","l"
1 #00,"D","D"
1 #00,"C",#00
1 #00,"B","B"
1 #00,"B","$"
1 #00,"@",#00
1 #00,"@","@"
1 #00,"@"," "
1 #00,"<","B"
1 #00,"8","`"
1 #00,"8","L"
1 #00,"8","D"
1 #00,"0",#08
1 #00," "," "
1 #$%)+,-9`abcghijko
1 #"a\"c\"e\!
1 "~islo strok w okne (1-23)";D:
1 "~",#0C,#00
1 "~",#02,#00
1 "~","<",#18
1 "|",#0C,#18
1 "|",#00,#18
1 "|",#00,"|"
1 "|","`","x"
1 "{irina-";D
1 "{irina okna [znakomest] (1-31) ";D:
1 "x",#0C,"L"
1 "x",#08,#00
1 "x","p","`"
1 "x","d","x"
1 "x","`","`"
1 "wwedite adres na~ala bloka kodow";U
1 "wwedite adres na~ala 2-go |krana";D
1 "window ^"
1 "t","h","4"
1 "t","d","8"
1 "sts3.2 "
1 "stroka-";D
1 "strok-";D
1 "stolbec-";D
1 "russk w^"
1 "razre{itx aktiw.(1)/net(0) ";D:
1 "r","J","r"
1 "qrkostx stroki (0-1) ";B:
1 "qrkostx okna (0-1) ";B:
1 "p","x","|"
1 "p","H","p"
1 "p","@","8"
1 "p","0","0"
1 "p"," "," "
1 "nomer stroki |krana-w kotoroj budet werhnqq stroka okna (0-21)";D:
1 "nomer stolbca |krana,sootwetst-wu`}ij lewomu kra` okna (1-31) ";D:
1 "n","n","n"
1 "miganie stroki (0-1) ";F:
1 "miganie okna (0-1) ";F:
1 "l",#00,#00
1 "l",#00,"p"
1 "l","d","d"
1 "l","T","D"
1 "k","w","c"
1 "k","k","c"
1 "k","c",#00
1 "help ha$"
1 "h","p","h"
1 "h","d","d"
1 "h","H","H"
1 "f",#0C,#18
1 "decompil"
1 "d",#00,"0"
1 "d","|","d"
1 "d","h","x"
1 "d","d","|"
1 "d","d","t"
1 "d","`","`"
1 "cwet '~ernil' stroki (0-7) ";I:
1 "cwet '~ernil' okna (0-7) ";I:
1 "cwet 'bumagi' stroki (0-7) ";P:
1 "cwet 'bumagi' okna (0-7) ";P:
1 "c",#00,#00
1 "c","c","c"
1 "`",#00,#18
1 "`",#00,"`"
1 "`","|",#00
1 "`","x","`"
1 "`","l","d"
1 "`","d","8"
1 "`","`","|"
1 "`","`","l"
1 "`","`","h"
1 "`","W",#80
1 "`","T","`"
1 "`","Q","`"
1 "`","M","`"
1 "`","J","`"
1 "`","F","`"
1 "`","C","`"
1 "`","@","`"
1 "`",">",#00
1 "\","\","@"
1 "X","h","H"
1 "X","X","0"
1 "X","H","0"
1 "X","8",#00
1 "X","(",#00
1 "WN+|2NO}2SO
1 "W",#C0,"P"
1 "W","`","P"
1 "Version 2.4"
1 "V",#E0,"W"
1 "V",#80,"W"
1 "V"," ","W"
1 "U",#C0,"V"
1 "U",#00,"V"
1 "U","`","V"
1 "TOKEHA" DISP
1 "T",#A8,"T"
1 "T",#A0,"U"
1 "T",#10,#10
1 "T",#00,#00
1 "T","~",#02
1 "T","t","T"
1 "T","T",#00
1 "T","T","|"
1 "T","T","H"
1 "T","T","8"
1 "T","T","("
1 "T","D","D"
1 "T","@","U"
1 "T","8","T"
1 "T","(",#00
1 "S\"K\"U\#"Y\
1 "STS2.6"
1 "STARTING ADDRESS: ";SS
1 "STARTING ADDRESS : ";DM
1 "START ADDRESS ? ";A$
1 "SA . . SAVE CODE OR DATA IN DISK"
1 "S",#E0,"T"
1 "S",#80,"T"
1 "S"," ","T"
1 "RU . . START CODE PROGRAM"
1 "R",#C0,"S"
1 "R",#00,"S"
1 "R","`","S"
1 "Q",#A0,"R"
1 "Q","I","""
1 "Q","@","R"
1 "P",#E0,"Q"
1 "P",#8B,#09
1 "P",#80,"Q"
1 "P",#00,#00
1 "P","h","@"
1 "P","`","P"
1 "P","P","P"
1 "P","H",#00
1 "P","@","`"
1 "P"," ",#00
1 "P"," ","Q"
1 "O",#A0,"H"
1 "O",#00,"P"
1 "O","@","H"
1 "NE . . RESTART THIS PROGRAM"
1 "N",#C0,"O"
1 "N",#00,"O"
1 "N","`","O"
1 "ME . . DUMP OF MEMORY"
1 "M",#A0,"N"
1 "M","@","N"
1 "Load at : (25000-60000) ";ADR:
1 "LOWEST ADDRESS: ";31500
1 "LOADING ADDRESS: ";R:
1 "LOAD ARRAY:INTER FILE NAME. ";K$
1 "LO . . LOAD DATA FROM DISK"
1 "LI . . LISTING COMANDS"
1 "L",#E0,"M"
1 "L",#80,"M"
1 "L","\",","
1 "L","L","L"
1 "L","L","<"
1 "L","8","8"
1 "L"," ","M"
1 "K",#C0,"L"
1 "K",#00,"L"
1 "K","`","L"
1 "J",#A0,"K"
1 "J","r",#00
1 "J","R","J"
1 "J","@","K"
1 "I",#E0,"J"
1 "I",#80,"J"
1 "I"," ","J"
1 "HE . . HELP"
1 "H",#FC,#84
1 "H",#C0,"I"
1 "H",#18,#08
1 "H",#00,"I"
1 "H","x","H"
1 "H","p","@"
1 "H","h","X"
1 "H","`","I"
1 "H","T","t"
1 "H","P","`"
1 "H","H","|"
1 "H","H","X"
1 "H","@","@"
1 "H","8","H"
1 "G",#E0,"@"
1 "G",#80,"@"
1 "G"," ","@"
1 "FINISHING ADDRESS: ";SF
1 "F",#A0,"G"
1 "F","@","G"
1 "EX . . EXIT IN BASIC"
1 "ENTER FILE NAME: ";N$
1 "E",#E0,"F"
1 "E",#80,"F"
1 "E"," ","F"
1 "DU . . LOAD CODE TO MEMORY"
1 "DISK VERSION 1990"
1 "DECOMPIL"
1 "D",#C0,"E"
1 "D",#00,"E"
1 "D","l","T"
1 "D","`","E"
1 "D","D",#00
1 "D","D","T"
1 "D","D","("
1 "D","(",#10
1 "COMMAND OR LINE(###): ";A$
1 "C",#A0,"D"
1 "C","B","D"
1 "C","@","D"
1 "B",#E0,"C"
1 "B",#80,"C"
1 "B",#00,#0C
1 "B","r","J"
1 "B","<",#00
1 "B"," ","C"
1 "A",#C0,"B"
1 "A",#00,"B"
1 "A","`","B"
1 "@",#A0,#A8
1 "@",#A0,"A"
1 "@",#A0,"@"
1 "@",#00,"("
1 "@","p",#00
1 "@","p","H"
1 "@","p","@"
1 "@","`","0"
1 "@","V","@"
1 "@","S","@"
1 "@","P","@"
1 "@","O","`"
1 "@","L","@"
1 "@","I","@"
1 "@","H","P"
1 "@","H","0"
1 "@","E","@"
1 "@","B","@"
1 "@","@","H"
1 "@","@","A"
1 "@","8",#00
1 "@","0",#08
1 "@"," "," "
1 ">","X","<"
1 "<",#1C,#0C
1 "<",#18,#18
1 "<",#0C,"x"
1 "<","L","L"
1 ";************************
1 ";","A","@"
1 ":",#00,"0"
1 "8",#10,#10
1 "8",#10,#00
1 "8",#0C,"L"
1 "8",#0C,"<"
1 "8",#08,#08
1 "8",#08,"0"
1 "8","d","l"
1 "8","`","x"
1 "8","`","p"
1 "8","`","8"
1 "8","L",#18
1 "8","L",#0C
1 "8","L","L"
1 "8","$","8"
1 "6";"ZEUS DECOMPILER v1.0 WRITTEN BY YASHNIKOV SERGEY FROM MONSTERS PRODUCTIONS
1 "6",#00,#18
1 "6",#00,#00
1 "34";"decompil";
1 "34";" not found":
1 "3","c",#00
1 "15619"PRI.DOC CT
1 "0",#18,#00
1 "0",#10,#00
1 "0",#08,"8"
1 "0",#00,"0"
1 "0","`","|"
1 "0","H",#10
1 "0","H","p"
1 "0","H","`"
1 "0","@","0"
1 "0","0",#00
1 "0","0","`"
1 "0","0","4"
1 ",22,13,15,"Word
1 ")","(",#11
1 "(",#11,#1A
1 "(","H",#00
1 "(","H","H"
1 "$","8",#00
1 "$","#","!"
1 """""""""/
1 """"""""""*"""
1 """"""""""""""
1 " wwedite nowye parametry okna "''''
1 " w q~ejkah 43893,43894 hranqtsq koordinaty (X,u) konca strely . wne{nij wid strelki zadan w ob-lasti 43706-43805,ee ograni~iwa-et bajt = FF (255). krome togo,programma trebuet rezerwirowaniq w pamqti 6144 (b)dlq wtorogo |krana,ispolxzuemogodlq wosstanowleniq |krana w tom wide,w kotorom on byl w moment wyzowa programmy . sej~as on raspoloven na~inaq s 49152 . programma i tablica,a takve 2-j|kran mogut bytx pereme}eny i w l`bye drugie adresa-po wa{emu velani`(smotri men`),hotq estx iograni~eniq na ispolxzowanie ob-lasti pzu,steka, itd. ":
1 " pri wyhode iz programmy prery- waniq razblokiru`tsq(EI), wtoroj|kran kopiruetsq w osnownoj , registry DE , HL , IX , IY wosstanawliwa`tsq, BC= nomeru stroki (B=0 C=nomer) , a=C , F menqetsq.alxternatiwnyj naborregistrow ne ispolxzuetsq. to~kazapuska programmy-ee na~alo . velaem uspeha ! ";
1 " Replace ? (Yes/All/No/Quit) ".
1 " For Run Decompile -> USR ";ADR+36
1 " ",#00,#00
1 " ","p"," "
1 " ","`",#00
1 " ","U"," "
1 " ","R"," "
1 " ","N"," "
1 " ","K"," "
1 " ","H"," "
1 " ","G","@"
1 " ","D"," "
1 " ","A"," "
1 " ","@","x"
1 " ","8","$"
1 " ","0","H"
1 " ","(",#10
1 " "," ",#10
1 " "," ",#00
1 " "," ","@"
1 " ")+(C$(CL,TR)
1 " ")+(C$(CL,FR)
1 " File ";
1 " H E L P"
1 !qpqpq~q~q
1 !cB[wEbwCpwD
1 !Bold.fntC@
1 !$&)+-02579<q
1 work -
1 w (word)
1 v 3.1
1 usr 49152,
1 to buffer=
1 set 3,(hl) )
1 pereme}enie .
1 obozna^a`t dampy pamqti o
1 loadtext;
1 loadtext,
1 loadtext (include).
1 loadtext "name" -
1 loadcode "name" -
1 load Font
1 lab3 - #a005.
1 jr, ldi
1 insert "FileName"
1 include,insert
1 include "FileName"
1 ina^e l`bu`
1 in a,(c) : out (c),e
1 in a,(bc) : out (bc),e
1 i proishodit
1 hacker Cris,
1 graph ss/i.
1 graph (cs/
1 ext mode (
1 ex af,af'
1 b (byte),
1 ^to analogi^no
1 ZX-Spectrum
1 ZX ASM ver.2.4
1 ZX ASM ver.2.
1 ZX ASM v.2.4.
1 ZX ASM 2.4.
1 ZX ASM 2.4,
1 ZX ASM 2.4
1 ZEUS ,KOTOPOM
1 Xas [ksas];
1 XMACROS ~P
1 XLAT_w -
1 XLAT_b - B A,
1 XLAT_b -
1 XH,XL, YH,YL,
1 W >,< V >
1 USR 25200
1 TR-DOS8DP#
1 TR-DOS . OH
1 TEKCTA CO CTPOK
1 TEKCTA CO
1 TEKCTA ,HO HA
1 TEKCT PAC
1 T O R J S M X W .
1 Subrout3.
1 Subrout1,
1 SetUp2.4
1 SetUp, RAM top
1 SYMBOL SHIFT
1 STS_128_2.5,
1 START THE TAPE AND PRESS ANY KEYSourceCode!
1 SS+SPACE -
1 SS+ENTER - K
1 SPECTRUM128K(
1 SLI register,
1 Routines
1 Return to TASM
1 Return to BASIC.
1 ReadMe2) /
1 ReadMe1) /
1 RAMTOP = #FFFF.
1 Processor),
1 Prefix=0,
1 Perestroik
1 PRINTING ROUTIG
1 PRIMUS BCE
1 PRIMUS .
1 PRI.ASS .
1 Oxford Computer Publ. Ltd.
1 OUT 32765,20+RANDOMIZE USR 49152 (
1 ORG Address
1 ORG NNNN
1 No trk...)
1 New file
1 Ne zabudte razre{itx wyda^u na
1 N3 .ABTOMAT
1 N2=65535 .
1 N1=N2=N3=10 .
1 N1=10 ,N2=10 .
1 N1 [N2] -
1 METOK METOK ,KO-
1 MACRO-80.
1 Load/Save file
1 Load EXT-HOB
1 LOADTEXT "filename"
1 KEMPSTON)'
1 HOMEPOM CTPOK
1 HOME(PROGRAMS)
1 FileName,
1 File name
1 Fatal Error
1 Error. ) .
1 EXTEND CS+D
1 EXTEND - EXTEND
1 EQU NNNN
1 ENT'OB HET, TO C
1 END ? (Y/N)
1 EDAS 3.0 )
1 DISP addr -
1 DEFW NNNN,NNNN,...
1 DEFM "..........."
1 DEFB NN,NN,NN, ...
1 DB 22,9,7,
1 DB 22,9,29,"Flags:",22,11,28,"SZ H PNC",0
1 DB 22,9,19,"A':#",22,10,18,"BC':#"
1 DB 22,9,10,"A:#",22,10,9,"BC:#"
1 DB 22,13,9,"IX:#",22,14,9,"SP:#"
1 DB 22,13,18,"IY: #",22,14,18,"IFF:"
1 DB 22,11,9,"DE:#",22,12,9,"HL:#"
1 DB 22,11,18,"DE':#",22,12,18,"HL':#"
1 DB 22,10,5,"
1 Compile,Assemble.
1 Compile -
1 CompLine
1 Caps/Lock,
1 Caps Shift (C.S.)
1 CS+SPACE
1 CS+ENTER
1 COOTBETCTB
1 CAPS SHIFT
1 C.S.+SPACE(Break),
1 BreakPoint
1 BackSpace
1 BYTES FREE (FROM H)
1 BETA-UNIT .
1 BETA DISC INTERFACE.
1 B TEKCTE O
1 Assembler-
1 Art Studio
1 ASSEMBLE
1 ARTSTUDIO4
1 <NO FILE> .
1 <Error.>(CM.H
1 ;A-E-D-C-B
1 : FEDCBA98
1 : <?>,<.>,<@>,<_>
1 598 0159 (
1 32768. Xas
1 32765=#7FFDY
1 32 ldi (ed a0) - defs 64,#a0ed
1 31 push af - defs 31,#f5f5
1 27800 CTAP
1 255(?),
1 2-j |kran > [ ";D;" - ";D+6143
1 15 CTPOK
1 128k
1 10,0,10 - defs 3,10
1 1,3,4,6. 48-
1 1 Find from begin 3 Replace from begin 2 Find from cursor 4 Replace from cursor
1 1 2 ... 8 9 0 A B C D E F
1 0..65535.
1 ......................
1 -PEREJTI K NOWOMU ADRESU.
1 -IZMENITX SISTEMU S~ISLENIQ.
1 - hacker Cris,
1 **DVK MONITOR 1989 *
1 *** Error ! ***
1 (turbo load/save);
1 (object save).
1 (ld sp,bc);
1 (ix/iy+d) -
1 (ix/iy+d)
1 (ix/iy+0)
1 (defs, work, ent, org,
1 (Slot/RAM-p
1 (Overline). TAK
1 (Escape).
1 (C) by Rst7 '
1 ( [] - HEO
1 ( IDE -Integrated Development
1 'Memory'.
1 '1'-'5'~-~
1 %01010111 -
1 #38 - #3C
1 #30 - #04
1 #28 - #2C
1 #20 - #24
1 #18 - #1C
1 #10 - #14
1 # -# ( )
1 "Workspace"
1 "SYMBOL SHIFT + 4"
1 "Labels Y/N"
1 "First" -
1 "FILE NAME:"
1 "FILE LST/ASM Y/N"
1 " wse ukazaniq o parametrah okna pome}a`tsq w
1 !assm !off
1 ! - xor (
1 loadcode,
1 dLQ EGO PROSMOTRA NAVMITE "
1 XMACROS.XaS (
1 XAS, xAS
1 Welcome to the Xas made by Max Petrov
1 WINDOW 1.01 1993
1 Sorry, demo only.. Made by Max Petrov
1 Prerwatx ispolnenie programmy
1 PRIMUS ASSEMBLER Version 2.9
1 Newybrannye registry na |krane
1 NONAME C
1 LabEL lD Hl #4000 ;
1 Kak podskazka budet wywedena
1 F C
1 Edas 3.0 assembler O - OBJECT FILE ON B - BEGIN TRANSLATION
1 EDAS 3.0
1 - defs 15
1 (0..127);
1 ( MONS4M, MON48
1 "Last"
1 "First"
1 Nikakih izmenenij
1 KOVALEW MICHAEL , 1995
1 INVALID REQUEST
1 CS+8 -
1 CS+6 -
1 2/(3-1).
1 1 begin 3 up 5 to begin 7 all text 2 end 4 down 6 to end 8 delete
1 OUT OF MEMORY
1 OUT OF MEMORY
1 B; STEK_END
1 work 0
1 velaem uspeha ! ";
1 org #a005
1 org #9000
1 - -
1 + -
1 & -
1 ! -
1 org #7300
1 org #7000
1 loadcode "font51"
1 i N F O R M A C I Q :
1 djnz $
1 ZEUS DECOMPILER V1.0 WRITTEN BY MONSTERS PRODUCTIONS
1 Y -
1 Xas
1 NOT FOUND
1 EXTEND CS+Q -
1 EXTEND CS+E -
1 CS+Q -
1 CS+E -
1 (CS/3), OVR -
1 !cont
1 PRESS SPACE FOR LOAD PROGRAM ENTER FOR CANSEL
1 B.
1 9.
1 8.
1 7.
1 6.
1 5.
1 4.
1 347340
1 3.
1 2.
1 00% -
1 0.
1 OUT (#FE),A
1 ORG #8000
1 LDIR
1 LD HL,PROG
1 LD DE,DEST
1 LD BC,LEN
1 LD B,0
1 LD A,B
1 JP NZ,LOOP
1 JP NEXT
1 ENT
1 EI
1 DISP DEST
1 DEC B
1 CALL START
1 AND 7
1 A C
1 space;
1 r
1 ext -
1 ent
1 XAS, XaS, xAS
1 LD (IX+"1"!2),"V"
1 CS+Y -
1 CS+U -
1 CS+T -
1 CS+I -
1 CS+4 -
1 CS+3 -
1 64 #40
1 32768 #8000
1 255 #FF
1 10 #0
1 /
1 (
1 '
1 ";;";
1 Next, Quit or Replace
1 LABEL2 JR NZ,LABEL3
1 (
1 enter; (
1 PUSH HL
1 PUSH DE
1 PUSH BC
1 PUSH AF
1 Only Demo...
1 Max Petrov Presents
1 EXTEND 9 -
1 EXTEND 8 -
1 EXTEND 7 -
1 EXTEND 6 -
1 EXTEND 5 -
1 EXTEND 0 -
1 -
1 loadcode, loadtext, !assm)
1 de
1 CS+P -
1 CS+O -
1 2.1
1 (ix*40);
1 OUT OF MEMORY
1 Next or Quit ?
1 Max Petrov (hpm) 01.96 SPb.
1 EXTEND
1 50% -
1 00% -
1 blok kodow programmy movet bytxpome}en w l`boe mesto ozu,no wamsleduet pomnitx,~to nekotorye oblasti pamqti mogut zatiratxsq pri rabote:zkran,oblastx bejsikai ego peremennyh,stek. nekotoryekomandy TR-DOS (MOVE,COPY) takveispolxzu`t bolx{ie u~astki ozu. w processe razme}eniq na nowyj adres programma ne perenosit samblok kodow (inogda |to budet ne-wozmovno),a li{x izmenqet w nem adresa perehodow. ispolxzujte komandy SAVE i LOAD CODE dlqperezagruzki polu~ennogo bloka po nowomu adresu. wozmovny i drugie sposoby tipa LDIR itd. |ti ve ograni~eniq otnosqtsq i kwydeleni` mesta dlq 2-go |krana."
1 Turbo Assembler for 128K Speccy.
1 " programma WINDOW prednazna~ena dlq samostoqtelxnogo sozdaniq prikladnyh,igrowyh i pro~ih programm, ispolxzu`}ih naibolee udobnyj interfejs polxzowatelx/ |wm - okna . urowenx podgotowki programmistapri |tom ne imeet zna~eniq: kak widite,movno rabotatx i iz bej- sika. dlq maksimalxnoj gibkosti programma ne pe~ataet sobstwennookna,ramok itd. ona wsego li{x wozwra}aet nomer stroki,na koto-ru` ukazywala strelka w moment navatiq klawi{i [ogonx],ili 255,esli strelka byla wne okna ."
1 EXTEND CS+4 -
1 EXTEND CS+3 -
1 EXTEND CS+2 -
1 EXTEND 4 - K
1 EXTEND 3 - K
1 EXTEND 2 - K
1 6.
1 EXTEND CS+P -
1 EXTEND CS+9 -
1 EXTEND CS+8 -
1 EXTEND CS+7 -
1 EXTEND CS+6 -
1 EXTEND CS+0 -
1 EXTEND CS+
1 7.
1 5.
1 "SOURCE OR MACHIEN CODE: (S OR M)";K$
1 " programma takve wydelqet okno atributami i otme~aet aktiwnu` stroku. stroka movet bytx razre-{ena k aktiwacii ili zapre}ena . sama programma-|to blok kodow, ego na~alo- 43073 , dlina- 854. ":
1 2.
1 SPC/TAB
1 INS/DIV
1 Users Guide.
1 4.
1 3.
1 1.
1 !
1
1
1
1
1
1
1